home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 19.2 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 54 68 75 20 4a | 61 6e 20 32 32 20 31 34 |on Thu J|an 22 14|
|00000040| 3a 34 37 3a 30 31 20 31 | 39 39 38 0a 3b 3b 3b 20 |:47:01 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 78 65 | 6d 61 63 73 2d 32 30 2e |emacs/xe|macs-20.|
|00000090| 33 2f 6c 69 73 70 2f 63 | 6c 2f 63 6c 2d 65 78 74 |3/lisp/c|l/cl-ext|
|000000a0| 72 61 2e 65 6c 0a 3b 3b | 3b 20 65 6d 61 63 73 20 |ra.el.;;|; emacs |
|000000b0| 76 65 72 73 69 6f 6e 20 | 32 30 2e 33 20 22 56 61 |version |20.3 "Va|
|000000c0| 74 69 63 61 6e 20 43 69 | 74 79 22 20 58 45 6d 61 |tican Ci|ty" XEma|
|000000d0| 63 73 20 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |cs Luci|d..;;; b|
|000000e0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000f0| 32 2e 32 35 20 58 45 6d | 61 63 73 3b 20 32 32 2d |2.25 XEm|acs; 22-|
|00000100| 4d 61 72 2d 39 36 2e 0a | 3b 3b 3b 20 6f 70 74 69 |Mar-96..|;;; opti|
|00000110| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|00000120| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|00000130| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|00000140| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000150| 20 45 6d 61 63 73 20 31 | 39 2e 0a 0a 28 69 66 20 | Emacs 1|9...(if |
|00000160| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000170| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000180| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000190| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|000001a0| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|000001b0| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |.. (|string-l|
|000001c0| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|000001d0| 6f 6e 20 22 32 30 22 29 | 29 29 0a 20 20 20 20 28 |on "20")|)). (|
|000001e0| 65 72 72 6f 72 20 22 60 | 63 6c 2d 65 78 74 72 61 |error "`|cl-extra|
|000001f0| 2e 65 6c 27 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |.el' was| compile|
|00000200| 64 20 66 6f 72 20 45 6d | 61 63 73 20 32 30 22 29 |d for Em|acs 20")|
|00000210| 29 0a 0a 28 6f 72 20 28 | 62 6f 75 6e 64 70 20 27 |)..(or (|boundp '|
|00000220| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00000230| 74 29 20 28 73 65 74 71 | 20 63 75 72 72 65 6e 74 |t) (setq| current|
|00000240| 2d 6c 6f 61 64 2d 6c 69 | 73 74 20 6e 69 6c 29 29 |-load-li|st nil))|
|00000250| 0a 0a 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |...(byte|-code ".|
|00000260| 09 73 ac 84 c2 c3 21 88 | c0 87 22 20 5b 63 6c 2d |.s....!.|.." [cl-|
|00000270| 31 39 20 66 65 61 74 75 | 72 65 73 20 65 72 72 6f |19 featu|res erro|
|00000280| 72 20 22 54 72 69 65 64 | 20 74 6f 20 6c 6f 61 64 |r "Tried| to load|
|00000290| 20 60 63 6c 2d 65 78 74 | 72 61 27 20 62 65 66 6f | `cl-ext|ra' befo|
|000002a0| 72 65 20 60 63 6c 27 21 | 22 5d 20 32 29 0a 28 64 |re `cl'!|"] 2).(d|
|000002b0| 65 66 61 6c 69 61 73 20 | 27 63 6c 2d 70 75 73 68 |efalias |'cl-push|
|000002c0| 20 27 28 6d 61 63 72 6f | 20 2e 20 23 5b 28 78 20 | '(macro| . #[(x |
|000002d0| 70 6c 61 63 65 29 20 22 | c0 09 c2 0b 09 45 45 87 |place) "|.....EE.|
|000002e0| 22 20 5b 73 65 74 71 20 | 70 6c 61 63 65 20 63 6f |" [setq |place co|
|000002f0| 6e 73 20 78 5d 20 35 5d | 29 29 0a 28 64 65 66 61 |ns x] 5]|)).(defa|
|00000300| 6c 69 61 73 20 27 63 6c | 2d 70 6f 70 20 27 28 6d |lias 'cl|-pop '(m|
|00000310| 61 63 72 6f 20 2e 20 23 | 5b 28 70 6c 61 63 65 29 |acro . #|[(place)|
|00000320| 20 22 c0 c1 5c 6e c3 5c | 6e c4 5c 6e 44 45 45 44 | "..\n.\|n.\nDEED|
|00000330| 87 22 20 5b 63 61 72 20 | 70 72 6f 67 31 20 70 6c |." [car |prog1 pl|
|00000340| 61 63 65 20 73 65 74 71 | 20 63 64 72 5d 20 37 5d |ace setq| cdr] 7]|
|00000350| 29 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |)).(byte|-code ".|
|00000360| 09 42 11 c0 87 22 20 5b | 63 6c 2d 65 6d 61 63 73 |.B..." [|cl-emacs|
|00000370| 2d 74 79 70 65 20 63 75 | 72 72 65 6e 74 2d 6c 6f |-type cu|rrent-lo|
|00000380| 61 64 2d 6c 69 73 74 5d | 20 32 29 0a 23 40 36 37 |ad-list]| 2).#@67|
|00000390| 20 43 6f 65 72 63 65 20 | 4f 42 4a 45 43 54 20 74 | Coerce |OBJECT t|
|000003a0| 6f 20 74 79 70 65 20 54 | 59 50 45 2e 0a 54 59 50 |o type T|YPE..TYP|
|000003b0| 45 20 69 73 20 61 20 43 | 6f 6d 6d 6f 6e 20 4c 69 |E is a C|ommon Li|
|000003c0| 73 70 20 74 79 70 65 20 | 73 70 65 63 69 66 69 65 |sp type |specifie|
|000003d0| 72 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 63 |r...(def|alias 'c|
|000003e0| 6f 65 72 63 65 20 23 5b | 28 78 20 74 79 70 65 29 |oerce #[|(x type)|
|000003f0| 20 22 08 c1 61 ab 8b 5c | 6e 3c ab 82 5c 6e 87 c3 | "..a..\|n<..\n..|
|00000400| 5c 6e c4 5c 22 87 08 c5 | 61 ab 8b c6 5c 6e 21 ab |\n.\"...|a...\n!.|
|00000410| 82 5c 6e 87 c7 5c 6e 21 | 87 08 c8 61 ab 8a 5c 6e |.\n..\n!|...a..\n|
|00000420| 3b ab 82 5c 6e 87 5c 6e | b0 01 87 08 c9 61 ab 8b |;..\n.\n|.....a..|
|00000430| ca 5c 6e 21 ab 82 5c 6e | 87 c7 5c 6e 21 87 08 cb |.\n!..\n|..\n!...|
|00000440| 61 ab 8e 5c 6e 3b ab 8a | 5c 6e 47 cc 55 ab 84 5c |a..\n;..|\nG.U..\|
|00000450| 6e cd 48 87 08 cb 61 ab | 8b 5c 6e 39 ab 87 ce cf |n.H...a.|.\n9....|
|00000460| 5c 6e 21 08 5c 22 87 08 | d0 61 ab 84 d0 5c 6e 21 |\n!.\"..|.a...\n!|
|00000470| 87 d1 5c 6e 08 5c 22 ab | 82 5c 6e 87 d2 d3 5c 6e |..\n.\".|.\n...\n|
|00000480| 08 23 87 22 20 5b 74 79 | 70 65 20 6c 69 73 74 20 |.#." [ty|pe list |
|00000490| 78 20 61 70 70 65 6e 64 | 20 6e 69 6c 20 76 65 63 |x append| nil vec|
|000004a0| 74 6f 72 20 76 65 63 74 | 6f 72 70 20 76 63 6f 6e |tor vect|orp vcon|
|000004b0| 63 61 74 20 73 74 72 69 | 6e 67 20 61 72 72 61 79 |cat stri|ng array|
|000004c0| 20 61 72 72 61 79 70 20 | 63 68 61 72 61 63 74 65 | arrayp |characte|
|000004d0| 72 20 31 20 30 20 63 6f | 65 72 63 65 20 73 79 6d |r 1 0 co|erce sym|
|000004e0| 62 6f 6c 2d 6e 61 6d 65 | 20 66 6c 6f 61 74 20 74 |bol-name| float t|
|000004f0| 79 70 65 70 20 65 72 72 | 6f 72 20 22 43 61 6e 27 |ypep err|or "Can'|
|00000500| 74 20 63 6f 65 72 63 65 | 20 25 73 20 74 6f 20 74 |t coerce| %s to t|
|00000510| 79 70 65 20 25 73 22 5d | 20 34 20 28 23 24 20 2e |ype %s"]| 4 (#$ .|
|00000520| 20 39 31 33 29 5d 29 0a | 23 40 32 31 38 20 54 20 | 913)]).|#@218 T |
|00000530| 69 66 20 74 77 6f 20 4c | 69 73 70 20 6f 62 6a 65 |if two L|isp obje|
|00000540| 63 74 73 20 68 61 76 65 | 20 73 69 6d 69 6c 61 72 |cts have| similar|
|00000550| 20 73 74 72 75 63 74 75 | 72 65 73 20 61 6e 64 20 | structu|res and |
|00000560| 63 6f 6e 74 65 6e 74 73 | 2e 0a 54 68 69 73 20 69 |contents|..This i|
|00000570| 73 20 6c 69 6b 65 20 60 | 65 71 75 61 6c 27 2c 20 |s like `|equal', |
|00000580| 65 78 63 65 70 74 20 74 | 68 61 74 20 69 74 20 61 |except t|hat it a|
|00000590| 63 63 65 70 74 73 20 6e | 75 6d 65 72 69 63 61 6c |ccepts n|umerical|
|000005a0| 6c 79 20 65 71 75 61 6c | 0a 6e 75 6d 62 65 72 73 |ly equal|.numbers|
|000005b0| 20 6f 66 20 64 69 66 66 | 65 72 65 6e 74 20 74 79 | of diff|erent ty|
|000005c0| 70 65 73 20 28 66 6c 6f | 61 74 20 76 73 2e 20 69 |pes (flo|at vs. i|
|000005d0| 6e 74 65 67 65 72 29 2c | 20 61 6e 64 20 61 6c 73 |nteger),| and als|
|000005e0| 6f 20 63 6f 6d 70 61 72 | 65 73 0a 73 74 72 69 6e |o compar|es.strin|
|000005f0| 67 73 20 63 61 73 65 2d | 69 6e 73 65 6e 73 69 74 |gs case-|insensit|
|00000600| 69 76 65 6c 79 2e 1f 0a | 28 64 65 66 61 6c 69 61 |ively...|(defalia|
|00000610| 73 20 27 65 71 75 61 6c | 70 20 23 5b 28 78 20 79 |s 'equal|p #[(x y|
|00000620| 29 20 22 08 09 61 ab 82 | c2 87 08 3b ab 96 09 3b |) "..a..|...;...;|
|00000630| ad f0 08 47 09 47 55 ad | e9 08 09 98 ae 85 08 97 |...G.GU.|........|
|00000640| 09 97 98 87 08 a7 ab 88 | 09 a7 ad d6 08 09 55 87 |........|......U.|
|00000650| 08 3a ab a0 08 3a ab 92 | 09 3a ab 8e c3 08 89 41 |.:...:..|.:.....A|
|00000660| 10 40 09 89 41 11 40 5c | 22 ac 6a 08 3a 3f ad b3 |.@..A.@\|".j.:?..|
|00000670| c3 08 09 5c 22 87 c4 08 | 21 ab a6 c4 09 21 ad a4 |...\"...|!....!..|
|00000680| 08 47 09 47 55 ad 9d 08 | 47 1d 0d 53 89 15 c6 59 |.G.GU...|G..S...Y|
|00000690| ab 8a c3 08 0d 48 09 0d | 48 5c 22 ac 6e 0d c6 57 |.....H..|H\".n..W|
|000006a0| 29 87 08 09 6b 87 22 20 | 5b 78 20 79 20 74 20 65 |)...k." |[x y t e|
|000006b0| 71 75 61 6c 70 20 76 65 | 63 74 6f 72 70 20 69 20 |qualp ve|ctorp i |
|000006c0| 30 5d 20 34 20 28 23 24 | 20 2e 20 31 33 32 36 29 |0] 4 (#$| . 1326)|
|000006d0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 6c |]).(defa|lias 'cl|
|000006e0| 2d 6d 61 70 63 61 72 2d | 6d 61 6e 79 20 23 5b 28 |-mapcar-|many #[(|
|000006f0| 63 6c 2d 66 75 6e 63 20 | 63 6c 2d 73 65 71 73 29 |cl-func |cl-seqs)|
|00000700| 20 22 08 41 41 ab ee c1 | 1a c3 c4 c5 c6 08 5c 22 | ".AA...|......\"|
|00000710| 5c 22 1e 07 c8 1e 09 ca | 08 21 1e 0b c1 1e 0c c1 |\"......|.!......|
|00000720| 1e 0d ca 08 21 10 0e 09 | 0e 07 57 ab c5 08 16 0c |....!...|..W.....|
|00000730| 0e 0b 16 0d 0e 0c ab a9 | 0e 0d 0e 0c 40 3a ab 8d |........|....@:..|
|00000740| 0e 0c 40 40 0e 0c 89 40 | 41 a0 88 aa 86 0e 0c 40 |..@@...@|A......@|
|00000750| 0e 09 48 a0 88 0e 0c 41 | 16 0c 0e 0d 41 16 0d aa |..H....A|....A...|
|00000760| 53 c3 0e 0e 0e 0b 5c 22 | 5c 6e 42 12 0e 09 54 89 |S.....\"|\nB...T.|
|00000770| 16 09 aa 36 5c 6e 9f 2e | 06 87 c1 08 40 08 41 40 |...6\n..|....@.A@|
|00000780| 1e 0f 1e 10 1a 0e 10 47 | 0e 0f 47 5e d1 1e 09 1e |.......G|..G^....|
|00000790| 07 0e 09 54 89 16 09 0e | 07 57 ab ae 0e 0e 0e 10 |...T....|.W......|
|000007a0| 3a ab 89 0e 10 89 41 16 | 10 40 aa 85 0e 10 0e 09 |:.....A.|.@......|
|000007b0| 48 0e 0f 3a ab 89 0e 0f | 89 41 16 0f 40 aa 85 0e |H..:....|.A..@...|
|000007c0| 0f 0e 09 48 5c 22 5c 6e | 42 12 aa 47 2a 5c 6e 9f |...H\"\n|B..G*\n.|
|000007d0| 2b 87 22 20 5b 63 6c 2d | 73 65 71 73 20 6e 69 6c |+." [cl-|seqs nil|
|000007e0| 20 63 6c 2d 72 65 73 20 | 61 70 70 6c 79 20 6d 69 | cl-res |apply mi|
|000007f0| 6e 20 6d 61 70 63 61 72 | 20 6c 65 6e 67 74 68 20 |n mapcar| length |
|00000800| 63 6c 2d 6e 20 30 20 63 | 6c 2d 69 20 63 6f 70 79 |cl-n 0 c|l-i copy|
|00000810| 2d 73 65 71 75 65 6e 63 | 65 20 63 6c 2d 61 72 67 |-sequenc|e cl-arg|
|00000820| 73 20 63 6c 2d 70 31 20 | 63 6c 2d 70 32 20 63 6c |s cl-p1 |cl-p2 cl|
|00000830| 2d 66 75 6e 63 20 63 6c | 2d 79 20 63 6c 2d 78 20 |-func cl|-y cl-x |
|00000840| 2d 31 5d 20 36 5d 29 0a | 23 40 31 36 34 20 4d 61 |-1] 6]).|#@164 Ma|
|00000850| 70 20 61 20 66 75 6e 63 | 74 69 6f 6e 20 61 63 72 |p a func|tion acr|
|00000860| 6f 73 73 20 6f 6e 65 20 | 6f 72 20 6d 6f 72 65 20 |oss one |or more |
|00000870| 73 65 71 75 65 6e 63 65 | 73 2c 20 72 65 74 75 72 |sequence|s, retur|
|00000880| 6e 69 6e 67 20 61 20 73 | 65 71 75 65 6e 63 65 2e |ning a s|equence.|
|00000890| 0a 54 59 50 45 20 69 73 | 20 74 68 65 20 73 65 71 |.TYPE is| the seq|
|000008a0| 75 65 6e 63 65 20 74 79 | 70 65 20 74 6f 20 72 65 |uence ty|pe to re|
|000008b0| 74 75 72 6e 2c 20 46 55 | 4e 43 20 69 73 20 74 68 |turn, FU|NC is th|
|000008c0| 65 20 66 75 6e 63 74 69 | 6f 6e 2c 20 61 6e 64 20 |e functi|on, and |
|000008d0| 53 45 51 53 0a 61 72 65 | 20 74 68 65 20 61 72 67 |SEQS.are| the arg|
|000008e0| 75 6d 65 6e 74 20 73 65 | 71 75 65 6e 63 65 73 2e |ument se|quences.|
|000008f0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 6d 61 70 |..(defal|ias 'map|
|00000900| 20 23 5b 28 63 6c 2d 74 | 79 70 65 20 63 6c 2d 66 | #[(cl-t|ype cl-f|
|00000910| 75 6e 63 20 63 6c 2d 73 | 65 71 20 26 72 65 73 74 |unc cl-s|eq &rest|
|00000920| 20 63 6c 2d 72 65 73 74 | 29 20 22 c0 c1 5c 6e 0b | cl-rest|) "..\n.|
|00000930| 0c 24 1d 0e 06 ad 85 c7 | 0d 0e 06 5c 22 29 87 22 |.$......|...\")."|
|00000940| 20 5b 61 70 70 6c 79 20 | 6d 61 70 63 61 72 2a 20 | [apply |mapcar* |
|00000950| 63 6c 2d 66 75 6e 63 20 | 63 6c 2d 73 65 71 20 63 |cl-func |cl-seq c|
|00000960| 6c 2d 72 65 73 74 20 63 | 6c 2d 72 65 73 20 63 6c |l-rest c|l-res cl|
|00000970| 2d 74 79 70 65 20 63 6f | 65 72 63 65 5d 20 35 20 |-type co|erce] 5 |
|00000980| 28 23 24 20 2e 20 32 31 | 32 36 29 5d 29 0a 23 40 |(#$ . 21|26)]).#@|
|00000990| 31 33 39 20 4d 61 70 20 | 46 55 4e 43 20 74 6f 20 |139 Map |FUNC to |
|000009a0| 65 61 63 68 20 73 75 62 | 6c 69 73 74 20 6f 66 20 |each sub|list of |
|000009b0| 4c 49 53 54 20 6f 72 20 | 4c 49 53 54 53 2e 0a 4c |LIST or |LISTS..L|
|000009c0| 69 6b 65 20 60 6d 61 70 | 63 61 72 27 2c 20 65 78 |ike `map|car', ex|
|000009d0| 63 65 70 74 20 61 70 70 | 6c 69 65 73 20 74 6f 20 |cept app|lies to |
|000009e0| 6c 69 73 74 73 20 61 6e | 64 20 74 68 65 69 72 20 |lists an|d their |
|000009f0| 63 64 72 27 73 20 72 61 | 74 68 65 72 20 74 68 61 |cdr's ra|ther tha|
|00000a00| 6e 20 74 6f 0a 74 68 65 | 20 65 6c 65 6d 65 6e 74 |n to.the| element|
|00000a10| 73 20 74 68 65 6d 73 65 | 6c 76 65 73 2e 1f 0a 28 |s themse|lves...(|
|00000a20| 64 65 66 61 6c 69 61 73 | 20 27 6d 61 70 6c 69 73 |defalias| 'maplis|
|00000a30| 74 20 23 5b 28 63 6c 2d | 66 75 6e 63 20 63 6c 2d |t #[(cl-|func cl-|
|00000a40| 6c 69 73 74 20 26 72 65 | 73 74 20 63 6c 2d 72 65 |list &re|st cl-re|
|00000a50| 73 74 29 20 22 08 ab af | c1 5c 6e c3 08 21 42 c1 |st) "...|.\n..!B.|
|00000a60| 1c 1d 1e 06 c1 0d 73 ac | 9a c7 0e 08 0d 5c 22 0e |......s.|.....\".|
|00000a70| 06 42 16 06 0d 14 0c ab | 6c 0c 89 89 41 14 40 41 |.B......|l...A.@A|
|00000a80| a0 88 aa 72 0e 06 9f 2b | 87 c1 1e 06 5c 6e ab 8f |...r...+|....\n..|
|00000a90| 0e 08 5c 6e 21 0e 06 42 | 16 06 5c 6e 41 89 12 ac |..\n!..B|..\nA...|
|00000aa0| 71 0e 06 9f 29 87 22 20 | 5b 63 6c 2d 72 65 73 74 |q...)." |[cl-rest|
|00000ab0| 20 6e 69 6c 20 63 6c 2d | 6c 69 73 74 20 63 6f 70 | nil cl-|list cop|
|00000ac0| 79 2d 73 65 71 75 65 6e | 63 65 20 63 6c 2d 70 20 |y-sequen|ce cl-p |
|00000ad0| 63 6c 2d 61 72 67 73 20 | 63 6c 2d 72 65 73 20 61 |cl-args |cl-res a|
|00000ae0| 70 70 6c 79 20 63 6c 2d | 66 75 6e 63 5d 20 35 20 |pply cl-|func] 5 |
|00000af0| 28 23 24 20 2e 20 32 34 | 35 32 29 5d 29 0a 23 40 |(#$ . 24|52)]).#@|
|00000b00| 37 34 20 4c 69 6b 65 20 | 60 6d 61 70 6c 69 73 74 |74 Like |`maplist|
|00000b10| 27 2c 20 62 75 74 20 64 | 6f 65 73 20 6e 6f 74 20 |', but d|oes not |
|00000b20| 61 63 63 75 6d 75 6c 61 | 74 65 20 76 61 6c 75 65 |accumula|te value|
|00000b30| 73 20 72 65 74 75 72 6e | 65 64 20 62 79 20 74 68 |s return|ed by th|
|00000b40| 65 20 66 75 6e 63 74 69 | 6f 6e 2e 1f 0a 28 64 65 |e functi|on...(de|
|00000b50| 66 61 6c 69 61 73 20 27 | 6d 61 70 6c 20 23 5b 28 |falias '|mapl #[(|
|00000b60| 63 6c 2d 66 75 6e 63 20 | 63 6c 2d 6c 69 73 74 20 |cl-func |cl-list |
|00000b70| 26 72 65 73 74 20 63 6c | 2d 72 65 73 74 29 20 22 |&rest cl|-rest) "|
|00000b80| 08 ab 89 c1 c2 0b 0c 08 | 24 88 aa 90 0c 89 1d ab |........|$.......|
|00000b90| 8a 0b 0d 21 88 0d 41 89 | 15 ac 76 29 0c 87 22 20 |...!..A.|..v).." |
|00000ba0| 5b 63 6c 2d 72 65 73 74 | 20 61 70 70 6c 79 20 6d |[cl-rest| apply m|
|00000bb0| 61 70 6c 69 73 74 20 63 | 6c 2d 66 75 6e 63 20 63 |aplist c|l-func c|
|00000bc0| 6c 2d 6c 69 73 74 20 63 | 6c 2d 70 5d 20 36 20 28 |l-list c|l-p] 6 (|
|00000bd0| 23 24 20 2e 20 32 38 31 | 39 29 5d 29 0a 23 40 37 |#$ . 281|9)]).#@7|
|00000be0| 34 20 4c 69 6b 65 20 60 | 6d 61 70 63 61 72 27 2c |4 Like `|mapcar',|
|00000bf0| 20 62 75 74 20 6e 63 6f | 6e 63 27 73 20 74 6f 67 | but nco|nc's tog|
|00000c00| 65 74 68 65 72 20 74 68 | 65 20 76 61 6c 75 65 73 |ether th|e values|
|00000c10| 20 72 65 74 75 72 6e 65 | 64 20 62 79 20 74 68 65 | returne|d by the|
|00000c20| 20 66 75 6e 63 74 69 6f | 6e 2e 1f 0a 28 64 65 66 | functio|n...(def|
|00000c30| 61 6c 69 61 73 20 27 6d | 61 70 63 61 6e 20 23 5b |alias 'm|apcan #[|
|00000c40| 28 63 6c 2d 66 75 6e 63 | 20 63 6c 2d 73 65 71 20 |(cl-func| cl-seq |
|00000c50| 26 72 65 73 74 20 63 6c | 2d 72 65 73 74 29 20 22 |&rest cl|-rest) "|
|00000c60| c0 c1 c0 c2 0b 0c 0d 24 | 5c 22 87 22 20 5b 61 70 |.......$|\"." [ap|
|00000c70| 70 6c 79 20 6e 63 6f 6e | 63 20 6d 61 70 63 61 72 |ply ncon|c mapcar|
|00000c80| 2a 20 63 6c 2d 66 75 6e | 63 20 63 6c 2d 73 65 71 |* cl-fun|c cl-seq|
|00000c90| 20 63 6c 2d 72 65 73 74 | 5d 20 37 20 28 23 24 20 | cl-rest|] 7 (#$ |
|00000ca0| 2e 20 33 30 34 32 29 5d | 29 0a 23 40 37 35 20 4c |. 3042)]|).#@75 L|
|00000cb0| 69 6b 65 20 60 6d 61 70 | 6c 69 73 74 27 2c 20 62 |ike `map|list', b|
|00000cc0| 75 74 20 6e 63 6f 6e 63 | 27 73 20 74 6f 67 65 74 |ut nconc|'s toget|
|00000cd0| 68 65 72 20 74 68 65 20 | 76 61 6c 75 65 73 20 72 |her the |values r|
|00000ce0| 65 74 75 72 6e 65 64 20 | 62 79 20 74 68 65 20 66 |eturned |by the f|
|00000cf0| 75 6e 63 74 69 6f 6e 2e | 1f 0a 28 64 65 66 61 6c |unction.|..(defal|
|00000d00| 69 61 73 20 27 6d 61 70 | 63 6f 6e 20 23 5b 28 63 |ias 'map|con #[(c|
|00000d10| 6c 2d 66 75 6e 63 20 63 | 6c 2d 6c 69 73 74 20 26 |l-func c|l-list &|
|00000d20| 72 65 73 74 20 63 6c 2d | 72 65 73 74 29 20 22 c0 |rest cl-|rest) ".|
|00000d30| c1 c0 c2 0b 0c 0d 24 5c | 22 87 22 20 5b 61 70 70 |......$\|"." [app|
|00000d40| 6c 79 20 6e 63 6f 6e 63 | 20 6d 61 70 6c 69 73 74 |ly nconc| maplist|
|00000d50| 20 63 6c 2d 66 75 6e 63 | 20 63 6c 2d 6c 69 73 74 | cl-func| cl-list|
|00000d60| 20 63 6c 2d 72 65 73 74 | 5d 20 37 20 28 23 24 20 | cl-rest|] 7 (#$ |
|00000d70| 2e 20 33 32 34 37 29 5d | 29 0a 23 40 31 32 37 20 |. 3247)]|).#@127 |
|00000d80| 52 65 74 75 72 6e 20 74 | 72 75 65 20 69 66 20 50 |Return t|rue if P|
|00000d90| 52 45 44 49 43 41 54 45 | 20 69 73 20 74 72 75 65 |REDICATE| is true|
|00000da0| 20 6f 66 20 61 6e 79 20 | 65 6c 65 6d 65 6e 74 20 | of any |element |
|00000db0| 6f 66 20 53 45 51 20 6f | 72 20 53 45 51 73 2e 0a |of SEQ o|r SEQs..|
|00000dc0| 49 66 20 73 6f 2c 20 72 | 65 74 75 72 6e 20 74 68 |If so, r|eturn th|
|00000dd0| 65 20 74 72 75 65 20 28 | 6e 6f 6e 2d 6e 69 6c 29 |e true (|non-nil)|
|00000de0| 20 76 61 6c 75 65 20 72 | 65 74 75 72 6e 65 64 20 | value r|eturned |
|00000df0| 62 79 20 50 52 45 44 49 | 43 41 54 45 2e 1f 0a 28 |by PREDI|CATE...(|
|00000e00| 64 65 66 61 6c 69 61 73 | 20 27 73 6f 6d 65 20 23 |defalias| 'some #|
|00000e10| 5b 28 63 6c 2d 70 72 65 | 64 20 63 6c 2d 73 65 71 |[(cl-pre|d cl-seq|
|00000e20| 20 26 72 65 73 74 20 63 | 6c 2d 72 65 73 74 29 20 | &rest c|l-rest) |
|00000e30| 22 08 ac 84 09 3c ac 84 | c2 c3 8d 87 c4 1d 09 ab |"....<..|........|
|00000e40| 8c 0e 06 09 89 41 11 40 | 21 89 15 ab 71 0d 29 87 |.....A.@|!...q.).|
|00000e50| 22 20 5b 63 6c 2d 72 65 | 73 74 20 63 6c 2d 73 65 |" [cl-re|st cl-se|
|00000e60| 71 20 63 6c 2d 73 6f 6d | 65 20 28 62 79 74 65 2d |q cl-som|e (byte-|
|00000e70| 63 6f 64 65 20 22 c0 c1 | c2 c3 0c 0d 25 88 c2 87 |code "..|....%...|
|00000e80| 22 20 5b 61 70 70 6c 79 | 20 6d 61 70 20 6e 69 6c |" [apply| map nil|
|00000e90| 20 23 5b 28 26 72 65 73 | 74 20 63 6c 2d 78 29 20 | #[(&res|t cl-x) |
|00000ea0| 22 c0 09 5c 6e 5c 22 89 | 1b ad 84 c4 c5 0b 5c 22 |"..\n\".|......\"|
|00000eb0| 29 87 22 20 5b 61 70 70 | 6c 79 20 63 6c 2d 70 72 |)." [app|ly cl-pr|
|00000ec0| 65 64 20 63 6c 2d 78 20 | 63 6c 2d 72 65 73 20 74 |ed cl-x |cl-res t|
|00000ed0| 68 72 6f 77 20 63 6c 2d | 73 6f 6d 65 5d 20 34 5d |hrow cl-|some] 4]|
|00000ee0| 20 63 6c 2d 73 65 71 20 | 63 6c 2d 72 65 73 74 5d | cl-seq |cl-rest]|
|00000ef0| 20 36 29 20 6e 69 6c 20 | 63 6c 2d 78 20 63 6c 2d | 6) nil |cl-x cl-|
|00000f00| 70 72 65 64 5d 20 33 20 | 28 23 24 20 2e 20 33 34 |pred] 3 |(#$ . 34|
|00000f10| 35 36 29 5d 29 0a 23 40 | 36 37 20 52 65 74 75 72 |56)]).#@|67 Retur|
|00000f20| 6e 20 74 72 75 65 20 69 | 66 20 50 52 45 44 49 43 |n true i|f PREDIC|
|00000f30| 41 54 45 20 69 73 20 74 | 72 75 65 20 6f 66 20 65 |ATE is t|rue of e|
|00000f40| 76 65 72 79 20 65 6c 65 | 6d 65 6e 74 20 6f 66 20 |very ele|ment of |
|00000f50| 53 45 51 20 6f 72 20 53 | 45 51 73 2e 1f 0a 28 64 |SEQ or S|EQs...(d|
|00000f60| 65 66 61 6c 69 61 73 20 | 27 65 76 65 72 79 20 23 |efalias |'every #|
|00000f70| 5b 28 63 6c 2d 70 72 65 | 64 20 63 6c 2d 73 65 71 |[(cl-pre|d cl-seq|
|00000f80| 20 26 72 65 73 74 20 63 | 6c 2d 72 65 73 74 29 20 | &rest c|l-rest) |
|00000f90| 22 08 ac 84 09 3c ac 84 | c2 c3 8d 87 09 ab 8c 0c |"....<..|........|
|00000fa0| 09 40 21 ab 86 09 41 89 | 11 ac 74 09 3f 87 22 20 |.@!...A.|..t.?." |
|00000fb0| 5b 63 6c 2d 72 65 73 74 | 20 63 6c 2d 73 65 71 20 |[cl-rest| cl-seq |
|00000fc0| 63 6c 2d 65 76 65 72 79 | 20 28 62 79 74 65 2d 63 |cl-every| (byte-c|
|00000fd0| 6f 64 65 20 22 c0 c1 c2 | c3 0c 0d 25 88 c6 87 22 |ode "...|...%..."|
|00000fe0| 20 5b 61 70 70 6c 79 20 | 6d 61 70 20 6e 69 6c 20 | [apply |map nil |
|00000ff0| 23 5b 28 26 72 65 73 74 | 20 63 6c 2d 78 29 20 22 |#[(&rest| cl-x) "|
|00001000| c0 09 5c 6e 5c 22 ae 84 | c3 c4 c5 5c 22 87 22 20 |..\n\"..|...\"." |
|00001010| 5b 61 70 70 6c 79 20 63 | 6c 2d 70 72 65 64 20 63 |[apply c|l-pred c|
|00001020| 6c 2d 78 20 74 68 72 6f | 77 20 63 6c 2d 65 76 65 |l-x thro|w cl-eve|
|00001030| 72 79 20 6e 69 6c 5d 20 | 33 5d 20 63 6c 2d 73 65 |ry nil] |3] cl-se|
|00001040| 71 20 63 6c 2d 72 65 73 | 74 20 74 5d 20 36 29 20 |q cl-res|t t] 6) |
|00001050| 63 6c 2d 70 72 65 64 5d | 20 33 20 28 23 24 20 2e |cl-pred]| 3 (#$ .|
|00001060| 20 33 38 36 37 29 5d 29 | 0a 23 40 36 38 20 52 65 | 3867)])|.#@68 Re|
|00001070| 74 75 72 6e 20 74 72 75 | 65 20 69 66 20 50 52 45 |turn tru|e if PRE|
|00001080| 44 49 43 41 54 45 20 69 | 73 20 66 61 6c 73 65 20 |DICATE i|s false |
|00001090| 6f 66 20 65 76 65 72 79 | 20 65 6c 65 6d 65 6e 74 |of every| element|
|000010a0| 20 6f 66 20 53 45 51 20 | 6f 72 20 53 45 51 73 2e | of SEQ |or SEQs.|
|000010b0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 6e 6f 74 |..(defal|ias 'not|
|000010c0| 61 6e 79 20 23 5b 28 63 | 6c 2d 70 72 65 64 20 63 |any #[(c|l-pred c|
|000010d0| 6c 2d 73 65 71 20 26 72 | 65 73 74 20 63 6c 2d 72 |l-seq &r|est cl-r|
|000010e0| 65 73 74 29 20 22 c0 c1 | 5c 6e 0b 0c 24 3f 87 22 |est) "..|\n..$?."|
|000010f0| 20 5b 61 70 70 6c 79 20 | 73 6f 6d 65 20 63 6c 2d | [apply |some cl-|
|00001100| 70 72 65 64 20 63 6c 2d | 73 65 71 20 63 6c 2d 72 |pred cl-|seq cl-r|
|00001110| 65 73 74 5d 20 35 20 28 | 23 24 20 2e 20 34 32 30 |est] 5 (|#$ . 420|
|00001120| 36 29 5d 29 0a 23 40 36 | 37 20 52 65 74 75 72 6e |6)]).#@6|7 Return|
|00001130| 20 74 72 75 65 20 69 66 | 20 50 52 45 44 49 43 41 | true if| PREDICA|
|00001140| 54 45 20 69 73 20 66 61 | 6c 73 65 20 6f 66 20 73 |TE is fa|lse of s|
|00001150| 6f 6d 65 20 65 6c 65 6d | 65 6e 74 20 6f 66 20 53 |ome elem|ent of S|
|00001160| 45 51 20 6f 72 20 53 45 | 51 73 2e 1f 0a 28 64 65 |EQ or SE|Qs...(de|
|00001170| 66 61 6c 69 61 73 20 27 | 6e 6f 74 65 76 65 72 79 |falias '|notevery|
|00001180| 20 23 5b 28 63 6c 2d 70 | 72 65 64 20 63 6c 2d 73 | #[(cl-p|red cl-s|
|00001190| 65 71 20 26 72 65 73 74 | 20 63 6c 2d 72 65 73 74 |eq &rest| cl-rest|
|000011a0| 29 20 22 c0 c1 5c 6e 0b | 0c 24 3f 87 22 20 5b 61 |) "..\n.|.$?." [a|
|000011b0| 70 70 6c 79 20 65 76 65 | 72 79 20 63 6c 2d 70 72 |pply eve|ry cl-pr|
|000011c0| 65 64 20 63 6c 2d 73 65 | 71 20 63 6c 2d 72 65 73 |ed cl-se|q cl-res|
|000011d0| 74 5d 20 35 20 28 23 24 | 20 2e 20 34 33 39 34 29 |t] 5 (#$| . 4394)|
|000011e0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 6c |]).(defa|lias 'cl|
|000011f0| 2d 6d 61 70 2d 6b 65 79 | 6d 61 70 20 23 5b 28 63 |-map-key|map #[(c|
|00001200| 6c 2d 66 75 6e 63 20 63 | 6c 2d 6d 61 70 29 20 22 |l-func c|l-map) "|
|00001210| 08 39 ab 86 08 4b 89 10 | aa 77 09 c2 61 ab 85 c3 |.9...K..|.w..a...|
|00001220| 0c 08 5c 22 87 08 3c ab | b4 08 1d 0d 41 89 15 3a |..\"..<.|....A..:|
|00001230| ad a9 0d 40 3a ab 8b 0c | 0d 40 40 0d 40 41 5c 22 |...@:...|.@@.@A\"|
|00001240| 88 aa 69 c6 0d 40 21 ab | 88 c7 0c 0d 40 5c 22 88 |..i..@!.|....@\".|
|00001250| aa 5b 0d 40 c8 61 ab 55 | c9 89 15 aa 51 29 87 ca |.[.@.a.U|....Q)..|
|00001260| 1e 0b 0e 0b 54 89 16 0b | 08 47 57 ad 91 08 0e 0b |....T...|.GW.....|
|00001270| 48 ab 6f 0c 0e 0b 08 0e | 0b 48 5c 22 88 aa 64 29 |H.o.....|.H\"..d)|
|00001280| 87 22 20 5b 63 6c 2d 6d | 61 70 20 63 6c 2d 65 6d |." [cl-m|ap cl-em|
|00001290| 61 63 73 2d 74 79 70 65 | 20 6c 75 63 69 64 20 6d |acs-type| lucid m|
|000012a0| 61 70 2d 6b 65 79 6d 61 | 70 20 63 6c 2d 66 75 6e |ap-keyma|p cl-fun|
|000012b0| 63 20 63 6c 2d 70 20 76 | 65 63 74 6f 72 70 20 63 |c cl-p v|ectorp c|
|000012c0| 6c 2d 6d 61 70 2d 6b 65 | 79 6d 61 70 20 6b 65 79 |l-map-ke|ymap key|
|000012d0| 6d 61 70 20 6e 69 6c 20 | 2d 31 20 63 6c 2d 69 5d |map nil |-1 cl-i]|
|000012e0| 20 35 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 5]).(de|falias '|
|000012f0| 63 6c 2d 6d 61 70 2d 6b | 65 79 6d 61 70 2d 72 65 |cl-map-k|eymap-re|
|00001300| 63 75 72 73 69 76 65 6c | 79 20 23 5b 28 63 6c 2d |cursivel|y #[(cl-|
|00001310| 66 75 6e 63 2d 72 65 63 | 20 63 6c 2d 6d 61 70 20 |func-rec| cl-map |
|00001320| 26 6f 70 74 69 6f 6e 61 | 6c 20 63 6c 2d 62 61 73 |&optiona|l cl-bas|
|00001330| 65 29 20 22 08 ac 8c c1 | 5c 6e c3 61 ab 83 c4 aa |e) "....|\n.a....|
|00001340| 81 c5 21 10 c6 c7 0e 08 | 5c 22 87 22 20 5b 63 6c |..!.....|\"." [cl|
|00001350| 2d 62 61 73 65 20 63 6f | 70 79 2d 73 65 71 75 65 |-base co|py-seque|
|00001360| 6e 63 65 20 63 6c 2d 65 | 6d 61 63 73 2d 74 79 70 |nce cl-e|macs-typ|
|00001370| 65 20 31 38 20 22 30 22 | 20 5b 30 5d 20 63 6c 2d |e 18 "0"| [0] cl-|
|00001380| 6d 61 70 2d 6b 65 79 6d | 61 70 20 23 5b 28 63 6c |map-keym|ap #[(cl|
|00001390| 2d 6b 65 79 20 63 6c 2d | 62 69 6e 64 29 20 22 08 |-key cl-|bind) ".|
|000013a0| 89 47 53 09 49 88 c2 0b | 21 ab 93 c4 0d 0b 0e 06 |.GS.I...|!.......|
|000013b0| c7 61 ab 83 c8 aa 81 c9 | 08 ca 43 5c 22 23 87 0d |.a......|..C\"#..|
|000013c0| 08 0b 5c 22 87 22 20 5b | 63 6c 2d 62 61 73 65 20 |..\"." [|cl-base |
|000013d0| 63 6c 2d 6b 65 79 20 6b | 65 79 6d 61 70 70 20 63 |cl-key k|eymapp c|
|000013e0| 6c 2d 62 69 6e 64 20 63 | 6c 2d 6d 61 70 2d 6b 65 |l-bind c|l-map-ke|
|000013f0| 79 6d 61 70 2d 72 65 63 | 75 72 73 69 76 65 6c 79 |ymap-rec|ursively|
|00001400| 20 63 6c 2d 66 75 6e 63 | 2d 72 65 63 20 63 6c 2d | cl-func|-rec cl-|
|00001410| 65 6d 61 63 73 2d 74 79 | 70 65 20 31 38 20 63 6f |emacs-ty|pe 18 co|
|00001420| 6e 63 61 74 20 76 63 6f | 6e 63 61 74 20 30 5d 20 |ncat vco|ncat 0] |
|00001430| 36 5d 20 63 6c 2d 6d 61 | 70 5d 20 33 5d 29 0a 28 |6] cl-ma|p] 3]).(|
|00001440| 64 65 66 61 6c 69 61 73 | 20 27 63 6c 2d 6d 61 70 |defalias| 'cl-map|
|00001450| 2d 69 6e 74 65 72 76 61 | 6c 73 20 23 5b 28 63 6c |-interva|ls #[(cl|
|00001460| 2d 66 75 6e 63 20 26 6f | 70 74 69 6f 6e 61 6c 20 |-func &o|ptional |
|00001470| 63 6c 2d 77 68 61 74 20 | 63 6c 2d 70 72 6f 70 20 |cl-what |cl-prop |
|00001480| 63 6c 2d 73 74 61 72 74 | 20 63 6c 2d 65 6e 64 29 |cl-start| cl-end)|
|00001490| 20 22 08 ac 82 70 10 c1 | 08 21 ab fe c2 89 c3 c2 | "...p..|.!......|
|000014a0| 1c 1d 1e 06 1e 07 8a 08 | 71 88 c8 0e 09 ae 81 65 |........|q......e|
|000014b0| 21 16 07 0e 5c 6e ad 84 | c8 0e 5c 6e 21 16 06 29 |!...\n..|..\n!..)|
|000014c0| 0d ab c8 0e 06 ab 87 0e | 07 0e 06 57 ab bd cb cc |........|...W....|
|000014d0| 21 ad 92 0e 0d ab 89 ce | 0e 07 0e 0d 08 23 aa 85 |!.......|.....#..|
|000014e0| cc 0e 07 08 5c 22 89 15 | ae 86 8a 08 71 88 64 29 |....\"..|....q.d)|
|000014f0| 14 0e 0f d0 0e 07 21 0e | 07 0c c2 93 88 0e 06 ab |......!.|........|
|00001500| 86 0c 0e 06 5e aa 81 0c | 5c 22 88 aa 35 0e 07 c2 |....^...|\"..5...|
|00001510| 89 93 88 0e 06 ad 85 0e | 06 c2 89 93 2c 87 0e 09 |........|....,...|
|00001520| ac 83 d1 16 09 0e 5c 6e | ac 84 08 47 16 5c 6e 0e |......\n|...G.\n.|
|00001530| 09 0e 5c 6e 57 ad ac cb | cc 21 ab 94 0e 0d ab 89 |..\nW...|.!......|
|00001540| ce 0e 09 0e 0d 08 23 aa | 85 cc 0e 09 08 5c 22 ae |......#.|.....\".|
|00001550| 82 0e 5c 6e 1d 0e 0f 0e | 09 0d 0e 5c 6e 5e 5c 22 |..\n....|...\n^\"|
|00001560| 88 0d 16 09 29 aa 4d 87 | 22 20 5b 63 6c 2d 77 68 |....).M.|" [cl-wh|
|00001570| 61 74 20 62 75 66 66 65 | 72 70 20 6e 69 6c 20 74 |at buffe|rp nil t|
|00001580| 20 63 6c 2d 6e 65 78 74 | 32 20 63 6c 2d 6e 65 78 | cl-next|2 cl-nex|
|00001590| 74 20 63 6c 2d 6d 61 72 | 6b 32 20 63 6c 2d 6d 61 |t cl-mar|k2 cl-ma|
|000015a0| 72 6b 20 63 6f 70 79 2d | 6d 61 72 6b 65 72 20 63 |rk copy-|marker c|
|000015b0| 6c 2d 73 74 61 72 74 20 | 63 6c 2d 65 6e 64 20 66 |l-start |cl-end f|
|000015c0| 62 6f 75 6e 64 70 20 6e | 65 78 74 2d 70 72 6f 70 |boundp n|ext-prop|
|000015d0| 65 72 74 79 2d 63 68 61 | 6e 67 65 20 63 6c 2d 70 |erty-cha|nge cl-p|
|000015e0| 72 6f 70 20 6e 65 78 74 | 2d 73 69 6e 67 6c 65 2d |rop next|-single-|
|000015f0| 70 72 6f 70 65 72 74 79 | 2d 63 68 61 6e 67 65 20 |property|-change |
|00001600| 63 6c 2d 66 75 6e 63 20 | 6d 61 72 6b 65 72 2d 70 |cl-func |marker-p|
|00001610| 6f 73 69 74 69 6f 6e 20 | 30 5d 20 36 5d 29 0a 28 |osition |0] 6]).(|
|00001620| 64 65 66 61 6c 69 61 73 | 20 27 63 6c 2d 6d 61 70 |defalias| 'cl-map|
|00001630| 2d 6f 76 65 72 6c 61 79 | 73 20 23 5b 28 63 6c 2d |-overlay|s #[(cl-|
|00001640| 66 75 6e 63 20 26 6f 70 | 74 69 6f 6e 61 6c 20 63 |func &op|tional c|
|00001650| 6c 2d 62 75 66 66 65 72 | 20 63 6c 2d 73 74 61 72 |l-buffer| cl-star|
|00001660| 74 20 63 6c 2d 65 6e 64 | 20 63 6c 2d 61 72 67 29 |t cl-end| cl-arg)|
|00001670| 20 22 08 ac 82 70 10 c1 | c2 21 ab e4 c3 1c 8a 08 | "...p..|.!......|
|00001680| 71 88 c2 20 14 0d ab 84 | c6 0d 21 15 0e 07 ab 86 |q.. ....|..!.....|
|00001690| c6 0e 07 21 16 07 29 0c | 40 0c 41 a4 89 14 ab ad |...!..).|@.A.....|
|000016a0| c8 0c 40 21 ab a1 0e 07 | ab 89 c8 0c 40 21 0e 07 |..@!....|....@!..|
|000016b0| 59 ac 94 0d ab 88 c9 0c | 40 21 0d 58 ac 89 0e 5c |Y.......|@!.X...\|
|000016c0| 6e 0c 40 0e 0b 5c 22 ac | 86 0c 41 89 14 ac 53 0d |n.@..\".|..A...S.|
|000016d0| ab 85 0d c3 89 93 88 0e | 07 ad 85 0e 07 c3 89 93 |........|........|
|000016e0| 29 87 8a 08 71 88 c6 0d | ae 81 65 21 29 0e 07 ad |)...q...|..e!)...|
|000016f0| 89 8a 08 71 88 c6 0e 07 | 21 29 c3 89 1c 1e 0c 1e |...q....|!)......|
|00001700| 0d 1e 0e 8a cf 0e 0e 21 | 89 16 0c ad 9a 0e 0c 0e |.......!|........|
|00001710| 0d ae 81 64 57 ad 90 08 | 71 88 d0 0e 0c 21 14 0e |...dW...|q....!..|
|00001720| 0e d1 0e 0c 21 c3 93 29 | ab a4 0c ab 56 c8 0c 40 |....!..)|....V..@|
|00001730| 21 0e 0c 55 ab 90 0e 5c | 6e 0c 40 0e 0b 5c 22 ab |!..U...\|n.@..\".|
|00001740| 87 0e 0e c3 89 93 ac 3d | 0c 41 89 14 ac 61 aa 35 |.......=|.A...a.5|
|00001750| 0e 0e c3 89 93 88 0e 0d | ad 85 0e 0d c3 89 93 2c |........|.......,|
|00001760| 87 22 20 5b 63 6c 2d 62 | 75 66 66 65 72 20 66 62 |." [cl-b|uffer fb|
|00001770| 6f 75 6e 64 70 20 6f 76 | 65 72 6c 61 79 2d 6c 69 |oundp ov|erlay-li|
|00001780| 73 74 73 20 6e 69 6c 20 | 63 6c 2d 6f 76 6c 20 63 |sts nil |cl-ovl c|
|00001790| 6c 2d 73 74 61 72 74 20 | 63 6f 70 79 2d 6d 61 72 |l-start |copy-mar|
|000017a0| 6b 65 72 20 63 6c 2d 65 | 6e 64 20 6f 76 65 72 6c |ker cl-e|nd overl|
|000017b0| 61 79 2d 73 74 61 72 74 | 20 6f 76 65 72 6c 61 79 |ay-start| overlay|
|000017c0| 2d 65 6e 64 20 63 6c 2d | 66 75 6e 63 20 63 6c 2d |-end cl-|func cl-|
|000017d0| 61 72 67 20 63 6c 2d 70 | 6f 73 20 63 6c 2d 6d 61 |arg cl-p|os cl-ma|
|000017e0| 72 6b 32 20 63 6c 2d 6d | 61 72 6b 20 6d 61 72 6b |rk2 cl-m|ark mark|
|000017f0| 65 72 2d 70 6f 73 69 74 | 69 6f 6e 20 6f 76 65 72 |er-posit|ion over|
|00001800| 6c 61 79 73 2d 61 74 20 | 6e 65 78 74 2d 6f 76 65 |lays-at |next-ove|
|00001810| 72 6c 61 79 2d 63 68 61 | 6e 67 65 5d 20 35 5d 29 |rlay-cha|nge] 5])|
|00001820| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 63 6c 2d 73 |.(defali|as 'cl-s|
|00001830| 65 74 2d 66 72 61 6d 65 | 2d 76 69 73 69 62 6c 65 |et-frame|-visible|
|00001840| 2d 70 20 23 5b 28 66 72 | 61 6d 65 20 76 61 6c 29 |-p #[(fr|ame val)|
|00001850| 20 22 08 ac 86 c1 5c 6e | 21 88 aa 8f 08 c3 61 ab | "....\n|!.....a.|
|00001860| 86 c4 5c 6e 21 88 aa 84 | c5 5c 6e 21 88 08 87 22 |..\n!...|.\n!..."|
|00001870| 20 5b 76 61 6c 20 6d 61 | 6b 65 2d 66 72 61 6d 65 | [val ma|ke-frame|
|00001880| 2d 69 6e 76 69 73 69 62 | 6c 65 20 66 72 61 6d 65 |-invisib|le frame|
|00001890| 20 69 63 6f 6e 20 69 63 | 6f 6e 69 66 79 2d 66 72 | icon ic|onify-fr|
|000018a0| 61 6d 65 20 6d 61 6b 65 | 2d 66 72 61 6d 65 2d 76 |ame make|-frame-v|
|000018b0| 69 73 69 62 6c 65 5d 20 | 32 5d 29 0a 28 62 79 74 |isible] |2]).(byt|
|000018c0| 65 2d 63 6f 64 65 20 22 | c0 09 42 11 c0 87 22 20 |e-code "|..B..." |
|000018d0| 5b 63 6c 2d 70 72 6f 67 | 76 2d 73 61 76 65 20 63 |[cl-prog|v-save c|
|000018e0| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|000018f0| 5d 20 32 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 2).(de|falias '|
|00001900| 63 6c 2d 70 72 6f 67 76 | 2d 62 65 66 6f 72 65 20 |cl-progv|-before |
|00001910| 23 5b 28 73 79 6d 73 20 | 76 61 6c 75 65 73 29 20 |#[(syms |values) |
|00001920| 22 08 ad ae c1 08 40 21 | ab 88 08 40 08 40 4a 42 |".....@!|...@.@JB|
|00001930| aa 82 08 40 5c 6e 42 12 | 0b ab 8e 08 89 41 10 40 |...@\nB.|.....A.@|
|00001940| 0b 89 41 13 40 4c 88 aa | 59 c4 08 89 41 10 40 21 |..A.@L..|Y...A.@!|
|00001950| 88 aa 4f 87 22 20 5b 73 | 79 6d 73 20 62 6f 75 6e |..O." [s|yms boun|
|00001960| 64 70 20 63 6c 2d 70 72 | 6f 67 76 2d 73 61 76 65 |dp cl-pr|ogv-save|
|00001970| 20 76 61 6c 75 65 73 20 | 6d 61 6b 75 6e 62 6f 75 | values |makunbou|
|00001980| 6e 64 5d 20 33 5d 29 0a | 28 64 65 66 61 6c 69 61 |nd] 3]).|(defalia|
|00001990| 73 20 27 63 6c 2d 70 72 | 6f 67 76 2d 61 66 74 65 |s 'cl-pr|ogv-afte|
|000019a0| 72 20 23 5b 6e 69 6c 20 | 22 08 ad 9b 08 40 3a ab |r #[nil |"....@:.|
|000019b0| 8a 08 40 40 08 40 41 4c | 88 aa 85 c1 08 40 21 88 |..@@.@AL|.....@!.|
|000019c0| 08 89 41 10 88 aa 62 87 | 22 20 5b 63 6c 2d 70 72 |..A...b.|" [cl-pr|
|000019d0| 6f 67 76 2d 73 61 76 65 | 20 6d 61 6b 75 6e 62 6f |ogv-save| makunbo|
|000019e0| 75 6e 64 5d 20 32 5d 29 | 0a 23 40 35 34 20 52 65 |und] 2])|.#@54 Re|
|000019f0| 74 75 72 6e 20 74 68 65 | 20 67 72 65 61 74 65 73 |turn the| greates|
|00001a00| 74 20 63 6f 6d 6d 6f 6e | 20 64 69 76 69 73 6f 72 |t common| divisor|
|00001a10| 20 6f 66 20 74 68 65 20 | 61 72 67 75 6d 65 6e 74 | of the |argument|
|00001a20| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 67 |s...(def|alias 'g|
|00001a30| 63 64 20 23 5b 28 26 72 | 65 73 74 20 61 72 67 73 |cd #[(&r|est args|
|00001a40| 29 20 22 c0 09 89 41 11 | 40 ae 81 c2 21 1b 09 ab |) "...A.|@...!...|
|00001a50| 99 c0 09 89 41 11 40 21 | 89 1c c2 56 ab 89 0b 0c |....A.@!|...V....|
|00001a60| 89 13 a6 89 14 aa 73 29 | aa 64 0b 29 87 22 20 5b |......s)|.d.)." [|
|00001a70| 61 62 73 20 61 72 67 73 | 20 30 20 61 20 62 5d 20 |abs args| 0 a b] |
|00001a80| 34 20 28 23 24 20 2e 20 | 36 36 33 38 29 5d 29 0a |4 (#$ . |6638)]).|
|00001a90| 23 40 35 32 20 52 65 74 | 75 72 6e 20 74 68 65 20 |#@52 Ret|urn the |
|00001aa0| 6c 65 61 73 74 20 63 6f | 6d 6d 6f 6e 20 6d 75 6c |least co|mmon mul|
|00001ab0| 74 69 70 6c 65 20 6f 66 | 20 74 68 65 20 61 72 67 |tiple of| the arg|
|00001ac0| 75 6d 65 6e 74 73 2e 1f | 0a 28 64 65 66 61 6c 69 |uments..|.(defali|
|00001ad0| 61 73 20 27 6c 63 6d 20 | 23 5b 28 26 72 65 73 74 |as 'lcm |#[(&rest|
|00001ae0| 20 61 72 67 73 29 20 22 | c0 09 73 ab 82 c0 87 c2 | args) "|..s.....|
|00001af0| 09 89 41 11 40 ae 81 c3 | 21 1c 09 ab 94 c2 09 89 |..A.@...|!.......|
|00001b00| 41 11 40 21 1d 0c c6 0c | 0d 5c 22 a5 0d 5f 14 29 |A.@!....|.\".._.)|
|00001b10| aa 69 0c 29 87 22 20 5b | 30 20 61 72 67 73 20 61 |.i.)." [|0 args a|
|00001b20| 62 73 20 31 20 61 20 62 | 20 67 63 64 5d 20 34 20 |bs 1 a b| gcd] 4 |
|00001b30| 28 23 24 20 2e 20 36 38 | 30 35 29 5d 29 0a 23 40 |(#$ . 68|05)]).#@|
|00001b40| 34 39 20 52 65 74 75 72 | 6e 20 74 68 65 20 69 6e |49 Retur|n the in|
|00001b50| 74 65 67 65 72 20 73 71 | 75 61 72 65 20 72 6f 6f |teger sq|uare roo|
|00001b60| 74 20 6f 66 20 74 68 65 | 20 61 72 67 75 6d 65 6e |t of the| argumen|
|00001b70| 74 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 69 |t...(def|alias 'i|
|00001b80| 73 71 72 74 20 23 5b 28 | 61 29 20 22 08 a8 ab be |sqrt #[(|a) "....|
|00001b90| 08 c1 56 ab b9 08 c2 59 | ab 83 c3 aa 91 08 c3 59 |..V....Y|.......Y|
|00001ba0| ab 83 c4 aa 89 08 c5 59 | ab 83 c5 aa 81 c6 c7 1e |.......Y|........|
|00001bb0| 08 89 1e 09 08 0e 09 a5 | 5c 5c ca a5 89 16 08 0e |........|\\......|
|00001bc0| 09 57 ab 87 0e 08 89 16 | 09 aa 6a 0e 09 2a 87 08 |.W......|..j..*..|
|00001bd0| c1 61 ab 82 c1 87 cb cc | c7 5c 22 87 22 20 5b 61 |.a......|.\"." [a|
|00001be0| 20 30 20 31 30 30 30 30 | 30 30 20 31 30 30 30 30 | 0 10000|00 10000|
|00001bf0| 20 31 30 30 30 20 31 30 | 30 20 31 30 20 6e 69 6c | 1000 10|0 10 nil|
|00001c00| 20 67 32 20 67 20 32 20 | 73 69 67 6e 61 6c 20 61 | g2 g 2 |signal a|
|00001c10| 72 69 74 68 2d 65 72 72 | 6f 72 5d 20 34 20 28 23 |rith-err|or] 4 (#|
|00001c20| 24 20 2e 20 36 39 37 39 | 29 5d 29 0a 23 40 37 31 |$ . 6979|)]).#@71|
|00001c30| 20 52 65 74 75 72 6e 20 | 58 20 72 61 69 73 65 64 | Return |X raised|
|00001c40| 20 74 6f 20 74 68 65 20 | 70 6f 77 65 72 20 6f 66 | to the |power of|
|00001c50| 20 59 2e 20 20 57 6f 72 | 6b 73 20 6f 6e 6c 79 20 | Y. Wor|ks only |
|00001c60| 66 6f 72 20 69 6e 74 65 | 67 65 72 20 61 72 67 75 |for inte|ger argu|
|00001c70| 6d 65 6e 74 73 2e 1f 0a | 28 64 65 66 61 6c 69 61 |ments...|(defalia|
|00001c80| 73 20 27 63 6c 2d 65 78 | 70 74 20 23 5b 28 78 20 |s 'cl-ex|pt #[(x |
|00001c90| 79 29 20 22 08 c1 58 ab | 94 08 c1 55 ab 82 c2 87 |y) "..X.|...U....|
|00001ca0| 0b c4 73 ab 86 c5 0b 08 | 5b 5c 22 87 c1 87 08 c6 |..s.....|[\".....|
|00001cb0| a6 c1 55 ab 83 c2 aa 81 | 0b c5 0b 89 5f 08 c6 a5 |..U.....|...._...|
|00001cc0| 5c 22 5f 87 22 20 5b 79 | 20 30 20 31 20 78 20 28 |\"_." [y| 0 1 x (|
|00001cd0| 2d 31 20 31 29 20 63 6c | 2d 65 78 70 74 20 32 5d |-1 1) cl|-expt 2]|
|00001ce0| 20 35 20 28 23 24 20 2e | 20 37 32 31 37 29 5d 29 | 5 (#$ .| 7217)])|
|00001cf0| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 21 |.(byte-c|ode "..!|
|00001d00| ab 86 c2 c1 4b 21 ac 85 | c3 c1 c4 5c 22 88 c0 87 |....K!..|...\"...|
|00001d10| 22 20 5b 66 62 6f 75 6e | 64 70 20 65 78 70 74 20 |" [fboun|dp expt |
|00001d20| 73 75 62 72 70 20 64 65 | 66 61 6c 69 61 73 20 63 |subrp de|falias c|
|00001d30| 6c 2d 65 78 70 74 5d 20 | 33 29 0a 23 40 31 32 39 |l-expt] |3).#@129|
|00001d40| 20 52 65 74 75 72 6e 20 | 61 20 6c 69 73 74 20 6f | Return |a list o|
|00001d50| 66 20 74 68 65 20 66 6c | 6f 6f 72 20 6f 66 20 58 |f the fl|oor of X|
|00001d60| 20 61 6e 64 20 74 68 65 | 20 66 72 61 63 74 69 6f | and the| fractio|
|00001d70| 6e 61 6c 20 70 61 72 74 | 20 6f 66 20 58 2e 0a 57 |nal part| of X..W|
|00001d80| 69 74 68 20 74 77 6f 20 | 61 72 67 75 6d 65 6e 74 |ith two |argument|
|00001d90| 73 2c 20 72 65 74 75 72 | 6e 20 66 6c 6f 6f 72 20 |s, retur|n floor |
|00001da0| 61 6e 64 20 72 65 6d 61 | 69 6e 64 65 72 20 6f 66 |and rema|inder of|
|00001db0| 20 74 68 65 69 72 20 71 | 75 6f 74 69 65 6e 74 2e | their q|uotient.|
|00001dc0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 66 6c 6f |..(defal|ias 'flo|
|00001dd0| 6f 72 2a 20 23 5b 28 78 | 20 26 6f 70 74 69 6f 6e |or* #[(x| &option|
|00001de0| 61 6c 20 79 29 20 22 c0 | 09 5c 6e 5c 22 89 1b 09 |al y) ".|.\n\"...|
|00001df0| 5c 6e ab 85 5c 6e 0b 5f | aa 81 0b 5a 29 44 87 22 |\n..\n._|...Z)D."|
|00001e00| 20 5b 66 6c 6f 6f 72 20 | 78 20 79 20 71 5d 20 35 | [floor |x y q] 5|
|00001e10| 20 28 23 24 20 2e 20 37 | 34 38 39 29 5d 29 0a 23 | (#$ . 7|489)]).#|
|00001e20| 40 31 33 33 20 52 65 74 | 75 72 6e 20 61 20 6c 69 |@133 Ret|urn a li|
|00001e30| 73 74 20 6f 66 20 74 68 | 65 20 63 65 69 6c 69 6e |st of th|e ceilin|
|00001e40| 67 20 6f 66 20 58 20 61 | 6e 64 20 74 68 65 20 66 |g of X a|nd the f|
|00001e50| 72 61 63 74 69 6f 6e 61 | 6c 20 70 61 72 74 20 6f |ractiona|l part o|
|00001e60| 66 20 58 2e 0a 57 69 74 | 68 20 74 77 6f 20 61 72 |f X..Wit|h two ar|
|00001e70| 67 75 6d 65 6e 74 73 2c | 20 72 65 74 75 72 6e 20 |guments,| return |
|00001e80| 63 65 69 6c 69 6e 67 20 | 61 6e 64 20 72 65 6d 61 |ceiling |and rema|
|00001e90| 69 6e 64 65 72 20 6f 66 | 20 74 68 65 69 72 20 71 |inder of| their q|
|00001ea0| 75 6f 74 69 65 6e 74 2e | 1f 0a 28 64 65 66 61 6c |uotient.|..(defal|
|00001eb0| 69 61 73 20 27 63 65 69 | 6c 69 6e 67 2a 20 23 5b |ias 'cei|ling* #[|
|00001ec0| 28 78 20 26 6f 70 74 69 | 6f 6e 61 6c 20 79 29 20 |(x &opti|onal y) |
|00001ed0| 22 c0 09 5c 6e 5c 22 89 | 1b 41 40 c4 55 ab 83 0b |"..\n\".|.A@.U...|
|00001ee0| aa 8c 0b 40 54 0b 41 40 | 5c 6e ae 81 c5 5a 44 29 |...@T.A@|\n...ZD)|
|00001ef0| 87 22 20 5b 66 6c 6f 6f | 72 2a 20 78 20 79 20 72 |." [floo|r* x y r|
|00001f00| 65 73 20 30 20 31 5d 20 | 34 20 28 23 24 20 2e 20 |es 0 1] |4 (#$ . |
|00001f10| 37 37 31 37 29 5d 29 0a | 23 40 31 34 31 20 52 65 |7717)]).|#@141 Re|
|00001f20| 74 75 72 6e 20 61 20 6c | 69 73 74 20 6f 66 20 74 |turn a l|ist of t|
|00001f30| 68 65 20 69 6e 74 65 67 | 65 72 20 70 61 72 74 20 |he integ|er part |
|00001f40| 6f 66 20 58 20 61 6e 64 | 20 74 68 65 20 66 72 61 |of X and| the fra|
|00001f50| 63 74 69 6f 6e 61 6c 20 | 70 61 72 74 20 6f 66 20 |ctional |part of |
|00001f60| 58 2e 0a 57 69 74 68 20 | 74 77 6f 20 61 72 67 75 |X..With |two argu|
|00001f70| 6d 65 6e 74 73 2c 20 72 | 65 74 75 72 6e 20 74 72 |ments, r|eturn tr|
|00001f80| 75 6e 63 61 74 69 6f 6e | 20 61 6e 64 20 72 65 6d |uncation| and rem|
|00001f90| 61 69 6e 64 65 72 20 6f | 66 20 74 68 65 69 72 20 |ainder o|f their |
|00001fa0| 71 75 6f 74 69 65 6e 74 | 2e 1f 0a 28 64 65 66 61 |quotient|...(defa|
|00001fb0| 6c 69 61 73 20 27 74 72 | 75 6e 63 61 74 65 2a 20 |lias 'tr|uncate* |
|00001fc0| 23 5b 28 78 20 26 6f 70 | 74 69 6f 6e 61 6c 20 79 |#[(x &op|tional y|
|00001fd0| 29 20 22 08 c1 59 5c 6e | 3f ae 83 5c 6e c1 59 61 |) "..Y\n|?..\n.Ya|
|00001fe0| ab 85 c3 08 5c 6e 5c 22 | 87 c4 08 5c 6e 5c 22 87 |....\n\"|...\n\".|
|00001ff0| 22 20 5b 78 20 30 20 79 | 20 66 6c 6f 6f 72 2a 20 |" [x 0 y| floor* |
|00002000| 63 65 69 6c 69 6e 67 2a | 5d 20 33 20 28 23 24 20 |ceiling*|] 3 (#$ |
|00002010| 2e 20 37 39 36 36 29 5d | 29 0a 23 40 31 33 39 20 |. 7966)]|).#@139 |
|00002020| 52 65 74 75 72 6e 20 61 | 20 6c 69 73 74 20 6f 66 |Return a| list of|
|00002030| 20 58 20 72 6f 75 6e 64 | 65 64 20 74 6f 20 74 68 | X round|ed to th|
|00002040| 65 20 6e 65 61 72 65 73 | 74 20 69 6e 74 65 67 65 |e neares|t intege|
|00002050| 72 20 61 6e 64 20 74 68 | 65 20 72 65 6d 61 69 6e |r and th|e remain|
|00002060| 64 65 72 2e 0a 57 69 74 | 68 20 74 77 6f 20 61 72 |der..Wit|h two ar|
|00002070| 67 75 6d 65 6e 74 73 2c | 20 72 65 74 75 72 6e 20 |guments,| return |
|00002080| 72 6f 75 6e 64 69 6e 67 | 20 61 6e 64 20 72 65 6d |rounding| and rem|
|00002090| 61 69 6e 64 65 72 20 6f | 66 20 74 68 65 69 72 20 |ainder o|f their |
|000020a0| 71 75 6f 74 69 65 6e 74 | 2e 1f 0a 28 64 65 66 61 |quotient|...(defa|
|000020b0| 6c 69 61 73 20 27 72 6f | 75 6e 64 2a 20 23 5b 28 |lias 'ro|und* #[(|
|000020c0| 78 20 26 6f 70 74 69 6f | 6e 61 6c 20 79 29 20 22 |x &optio|nal y) "|
|000020d0| 08 ab cb 09 a8 ab b6 08 | a8 ab b2 08 c2 a5 1b c4 |........|........|
|000020e0| 09 0b 5c 5c 08 5c 22 89 | 1d 41 40 c6 55 ab 96 0b |..\\.\".|.A@.U...|
|000020f0| 89 5c 5c 08 55 ab 8f 0d | 40 c2 a6 c6 55 ac 87 0d |.\\.U...|@...U...|
|00002100| 40 53 0b 44 aa 88 0d 40 | 0d 41 40 0b 5a 44 2a 87 |@S.D...@|.A@.ZD*.|
|00002110| c7 09 08 a5 21 89 1e 08 | 09 0e 08 08 5f 5a 29 44 |....!...|...._Z)D|
|00002120| 87 09 a8 ab 84 09 c6 44 | 87 c7 09 21 89 1e 08 09 |.......D|...!....|
|00002130| 0e 08 5a 29 44 87 22 20 | 5b 79 20 78 20 32 20 68 |..Z)D." |[y x 2 h|
|00002140| 79 20 66 6c 6f 6f 72 2a | 20 72 65 73 20 30 20 72 |y floor*| res 0 r|
|00002150| 6f 75 6e 64 20 71 5d 20 | 35 20 28 23 24 20 2e 20 |ound q] |5 (#$ . |
|00002160| 38 32 32 34 29 5d 29 0a | 23 40 35 39 20 54 68 65 |8224)]).|#@59 The|
|00002170| 20 72 65 6d 61 69 6e 64 | 65 72 20 6f 66 20 58 20 | remaind|er of X |
|00002180| 64 69 76 69 64 65 64 20 | 62 79 20 59 2c 20 77 69 |divided |by Y, wi|
|00002190| 74 68 20 74 68 65 20 73 | 61 6d 65 20 73 69 67 6e |th the s|ame sign|
|000021a0| 20 61 73 20 59 2e 1f 0a | 28 64 65 66 61 6c 69 61 | as Y...|(defalia|
|000021b0| 73 20 27 6d 6f 64 2a 20 | 23 5b 28 78 20 79 29 20 |s 'mod* |#[(x y) |
|000021c0| 22 c0 09 5c 6e 5c 22 41 | 40 87 22 20 5b 66 6c 6f |"..\n\"A|@." [flo|
|000021d0| 6f 72 2a 20 78 20 79 5d | 20 33 20 28 23 24 20 2e |or* x y]| 3 (#$ .|
|000021e0| 20 38 35 35 37 29 5d 29 | 0a 23 40 35 39 20 54 68 | 8557)])|.#@59 Th|
|000021f0| 65 20 72 65 6d 61 69 6e | 64 65 72 20 6f 66 20 58 |e remain|der of X|
|00002200| 20 64 69 76 69 64 65 64 | 20 62 79 20 59 2c 20 77 | divided| by Y, w|
|00002210| 69 74 68 20 74 68 65 20 | 73 61 6d 65 20 73 69 67 |ith the |same sig|
|00002220| 6e 20 61 73 20 58 2e 1f | 0a 28 64 65 66 61 6c 69 |n as X..|.(defali|
|00002230| 61 73 20 27 72 65 6d 2a | 20 23 5b 28 78 20 79 29 |as 'rem*| #[(x y)|
|00002240| 20 22 c0 09 5c 6e 5c 22 | 41 40 87 22 20 5b 74 72 | "..\n\"|A@." [tr|
|00002250| 75 6e 63 61 74 65 2a 20 | 78 20 79 5d 20 33 20 28 |uncate* |x y] 3 (|
|00002260| 23 24 20 2e 20 38 36 38 | 36 29 5d 29 0a 23 40 35 |#$ . 868|6)]).#@5|
|00002270| 35 20 52 65 74 75 72 6e | 20 31 20 69 66 20 41 20 |5 Return| 1 if A |
|00002280| 69 73 20 70 6f 73 69 74 | 69 76 65 2c 20 2d 31 20 |is posit|ive, -1 |
|00002290| 69 66 20 6e 65 67 61 74 | 69 76 65 2c 20 30 20 69 |if negat|ive, 0 i|
|000022a0| 66 20 7a 65 72 6f 2e 1f | 0a 28 64 65 66 61 6c 69 |f zero..|.(defali|
|000022b0| 61 73 20 27 73 69 67 6e | 75 6d 20 23 5b 28 61 29 |as 'sign|um #[(a)|
|000022c0| 20 22 08 c1 56 ab 82 c2 | 87 08 c1 57 ab 82 c3 87 | "..V...|...W....|
|000022d0| c1 87 22 20 5b 61 20 30 | 20 31 20 2d 31 5d 20 32 |.." [a 0| 1 -1] 2|
|000022e0| 20 28 23 24 20 2e 20 38 | 38 31 38 29 5d 29 0a 28 | (#$ . 8|818)]).(|
|000022f0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 09 42 11 c0 |byte-cod|e "..B..|
|00002300| 87 22 20 5b 2a 72 61 6e | 64 6f 6d 2d 73 74 61 74 |." [*ran|dom-stat|
|00002310| 65 2a 20 63 75 72 72 65 | 6e 74 2d 6c 6f 61 64 2d |e* curre|nt-load-|
|00002320| 6c 69 73 74 5d 20 32 29 | 0a 23 40 31 32 34 20 52 |list] 2)|.#@124 R|
|00002330| 65 74 75 72 6e 20 61 20 | 72 61 6e 64 6f 6d 20 6e |eturn a |random n|
|00002340| 6f 6e 6e 65 67 61 74 69 | 76 65 20 6e 75 6d 62 65 |onnegati|ve numbe|
|00002350| 72 20 6c 65 73 73 20 74 | 68 61 6e 20 4c 49 4d 2c |r less t|han LIM,|
|00002360| 20 61 6e 20 69 6e 74 65 | 67 65 72 20 6f 72 20 66 | an inte|ger or f|
|00002370| 6c 6f 61 74 2e 0a 4f 70 | 74 69 6f 6e 61 6c 20 73 |loat..Op|tional s|
|00002380| 65 63 6f 6e 64 20 61 72 | 67 20 53 54 41 54 45 20 |econd ar|g STATE |
|00002390| 69 73 20 61 20 72 61 6e | 64 6f 6d 2d 73 74 61 74 |is a ran|dom-stat|
|000023a0| 65 20 6f 62 6a 65 63 74 | 2e 1f 0a 28 64 65 66 61 |e object|...(defa|
|000023b0| 6c 69 61 73 20 27 72 61 | 6e 64 6f 6d 2a 20 23 5b |lias 'ra|ndom* #[|
|000023c0| 28 6c 69 6d 20 26 6f 70 | 74 69 6f 6e 61 6c 20 73 |(lim &op|tional s|
|000023d0| 74 61 74 65 29 20 22 08 | ac 82 09 10 08 c2 48 89 |tate) ".|......H.|
|000023e0| 1b a8 ab d4 c4 c5 c6 0b | 21 c7 a6 5a c8 c9 1e 5c |........|!..Z...\|
|000023f0| 6e 1e 0b 1e 0c 1e 0d 08 | c2 ce cf c9 5c 22 89 13 |n.......|....\"..|
|00002400| 49 88 0b c4 0e 0c 49 88 | 0e 0d d0 5c 5c cf a6 89 |I.....I.|...\\...|
|00002410| 16 0d c4 56 ab 93 0b 0e | 0d 0e 0b 0e 0c 0e 0b 5a |...V....|.......Z|
|00002420| 16 0b 89 16 0c 49 88 aa | 60 0e 0d 54 89 16 0d d1 |.....I..|`..T....|
|00002430| 57 ab 87 d2 d3 08 5c 22 | 88 aa 6f 2c 08 c8 08 c8 |W.....\"|..o,....|
|00002440| 48 54 cf a6 49 1e 0d 08 | d3 08 d3 48 54 cf a6 49 |HT..I...|...HT..I|
|00002450| 1e 0c d4 0b 0e 0d 0b 0e | 0d 48 0b 0e 0c 48 5a 49 |........|.H...HZI|
|00002460| d5 5c 22 1e 16 0e 17 a8 | ab cd 0e 17 d8 58 ab 87 |.\".....|.....X..|
|00002470| 0e 16 0e 17 a6 aa c7 0e | 17 d5 56 ab 8c d9 0e 16 |........|..V.....|
|00002480| da 5c 22 d2 d8 08 5c 22 | 5c 5c 16 16 db 1e 1c db |.\"...\"|\\......|
|00002490| 0e 17 53 57 ab 8a 0e 1c | 89 5c 5c 54 89 16 1c aa |..SW....|.\\T....|
|000024a0| 70 d4 0e 16 0e 1c 5c 22 | 89 16 16 0e 17 57 ab 84 |p.....\"|.....W..|
|000024b0| 0e 16 aa 85 d2 0e 17 08 | 5c 22 29 aa 87 0e 16 dd |........|\").....|
|000024c0| a5 0e 17 5f 2c 87 22 20 | 5b 73 74 61 74 65 20 2a |..._,." |[state *|
|000024d0| 72 61 6e 64 6f 6d 2d 73 | 74 61 74 65 2a 20 33 20 |random-s|tate* 3 |
|000024e0| 76 65 63 20 30 20 31 33 | 35 37 33 33 35 20 61 62 |vec 0 13|57335 ab|
|000024f0| 73 20 31 33 35 37 33 33 | 33 20 31 20 6e 69 6c 20 |s 135733|3 1 nil |
|00002500| 69 69 20 6b 20 6a 20 69 | 20 6d 61 6b 65 2d 76 65 |ii k j i| make-ve|
|00002510| 63 74 6f 72 20 35 35 20 | 32 31 20 32 30 30 20 72 |ctor 55 |21 200 r|
|00002520| 61 6e 64 6f 6d 2a 20 32 | 20 6c 6f 67 61 6e 64 20 |andom* 2| logand |
|00002530| 38 33 38 38 36 30 37 20 | 6e 20 6c 69 6d 20 35 31 |8388607 |n lim 51|
|00002540| 32 20 6c 73 68 20 39 20 | 31 30 32 33 20 6d 61 73 |2 lsh 9 |1023 mas|
|00002550| 6b 20 38 33 38 38 36 30 | 38 2e 30 5d 20 37 20 28 |k 838860|8.0] 7 (|
|00002560| 23 24 20 2e 20 39 30 30 | 37 29 5d 29 0a 23 40 31 |#$ . 900|7)]).#@1|
|00002570| 34 33 20 52 65 74 75 72 | 6e 20 61 20 63 6f 70 79 |43 Retur|n a copy|
|00002580| 20 6f 66 20 72 61 6e 64 | 6f 6d 2d 73 74 61 74 65 | of rand|om-state|
|00002590| 20 53 54 41 54 45 2c 20 | 6f 72 20 6f 66 20 60 2a | STATE, |or of `*|
|000025a0| 72 61 6e 64 6f 6d 2d 73 | 74 61 74 65 2a 27 20 69 |random-s|tate*' i|
|000025b0| 66 20 6f 6d 69 74 74 65 | 64 2e 0a 49 66 20 53 54 |f omitte|d..If ST|
|000025c0| 41 54 45 20 69 73 20 74 | 2c 20 72 65 74 75 72 6e |ATE is t|, return|
|000025d0| 20 61 20 6e 65 77 20 73 | 74 61 74 65 20 6f 62 6a | a new s|tate obj|
|000025e0| 65 63 74 20 73 65 65 64 | 65 64 20 66 72 6f 6d 20 |ect seed|ed from |
|000025f0| 74 68 65 20 74 69 6d 65 | 20 6f 66 20 64 61 79 2e |the time| of day.|
|00002600| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 6d 61 6b |..(defal|ias 'mak|
|00002610| 65 2d 72 61 6e 64 6f 6d | 2d 73 74 61 74 65 20 23 |e-random|-state #|
|00002620| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 73 74 61 74 |[(&optio|nal stat|
|00002630| 65 29 20 22 08 ac 84 c1 | 5c 6e 21 87 c3 08 21 ab |e) "....|\n!...!.|
|00002640| 85 c4 08 c5 5c 22 87 08 | a8 ab 87 c6 c7 c8 c9 08 |....\"..|........|
|00002650| 24 87 c1 ca 20 21 87 22 | 20 5b 73 74 61 74 65 20 |$... !."| [state |
|00002660| 6d 61 6b 65 2d 72 61 6e | 64 6f 6d 2d 73 74 61 74 |make-ran|dom-stat|
|00002670| 65 20 2a 72 61 6e 64 6f | 6d 2d 73 74 61 74 65 2a |e *rando|m-state*|
|00002680| 20 76 65 63 74 6f 72 70 | 20 63 6c 2d 63 6f 70 79 | vectorp| cl-copy|
|00002690| 2d 74 72 65 65 20 74 20 | 76 65 63 74 6f 72 20 63 |-tree t |vector c|
|000026a0| 6c 2d 72 61 6e 64 6f 6d | 2d 73 74 61 74 65 2d 74 |l-random|-state-t|
|000026b0| 61 67 20 2d 31 20 33 30 | 20 63 6c 2d 72 61 6e 64 |ag -1 30| cl-rand|
|000026c0| 6f 6d 2d 74 69 6d 65 5d | 20 35 20 28 23 24 20 2e |om-time]| 5 (#$ .|
|000026d0| 20 39 35 38 37 29 5d 29 | 0a 23 40 34 36 20 52 65 | 9587)])|.#@46 Re|
|000026e0| 74 75 72 6e 20 74 20 69 | 66 20 4f 42 4a 45 43 54 |turn t i|f OBJECT|
|000026f0| 20 69 73 20 61 20 72 61 | 6e 64 6f 6d 2d 73 74 61 | is a ra|ndom-sta|
|00002700| 74 65 20 6f 62 6a 65 63 | 74 2e 1f 0a 28 64 65 66 |te objec|t...(def|
|00002710| 61 6c 69 61 73 20 27 72 | 61 6e 64 6f 6d 2d 73 74 |alias 'r|andom-st|
|00002720| 61 74 65 2d 70 20 23 5b | 28 6f 62 6a 65 63 74 29 |ate-p #[|(object)|
|00002730| 20 22 c0 09 21 ad 8b 09 | 47 c2 55 ad 85 09 c3 48 | "..!...|G.U....H|
|00002740| c4 61 87 22 20 5b 76 65 | 63 74 6f 72 70 20 6f 62 |.a." [ve|ctorp ob|
|00002750| 6a 65 63 74 20 34 20 30 | 20 63 6c 2d 72 61 6e 64 |ject 4 0| cl-rand|
|00002760| 6f 6d 2d 73 74 61 74 65 | 2d 74 61 67 5d 20 32 20 |om-state|-tag] 2 |
|00002770| 28 23 24 20 2e 20 39 39 | 35 30 29 5d 29 0a 28 64 |(#$ . 99|50)]).(d|
|00002780| 65 66 61 6c 69 61 73 20 | 27 63 6c 2d 66 69 6e 69 |efalias |'cl-fini|
|00002790| 74 65 2d 64 6f 20 23 5b | 28 66 75 6e 63 20 61 20 |te-do #[|(func a |
|000027a0| 62 29 20 22 c0 c1 c2 8f | 87 22 20 5b 65 72 72 20 |b) "....|." [err |
|000027b0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 09 5c 6e |(byte-co|de "..\n|
|000027c0| 5c 22 89 1b a7 ad 89 0b | 89 c4 a5 55 3f ad 81 0b |\"......|...U?...|
|000027d0| 29 87 22 20 5b 66 75 6e | 63 20 61 20 62 20 72 65 |)." [fun|c a b re|
|000027e0| 73 20 32 5d 20 34 29 20 | 28 28 61 72 69 74 68 2d |s 2] 4) |((arith-|
|000027f0| 65 72 72 6f 72 29 29 5d | 20 33 5d 29 0a 28 62 79 |error))]| 3]).(by|
|00002800| 74 65 2d 63 6f 64 65 20 | 22 c0 09 42 11 c2 09 42 |te-code |"..B...B|
|00002810| 11 c3 09 42 11 c4 09 42 | 11 c5 09 42 11 c6 09 42 |...B...B|...B...B|
|00002820| 11 c7 09 42 11 c8 09 42 | 11 c0 87 22 20 5b 6d 6f |...B...B|..." [mo|
|00002830| 73 74 2d 70 6f 73 69 74 | 69 76 65 2d 66 6c 6f 61 |st-posit|ive-floa|
|00002840| 74 20 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c |t curren|t-load-l|
|00002850| 69 73 74 20 6d 6f 73 74 | 2d 6e 65 67 61 74 69 76 |ist most|-negativ|
|00002860| 65 2d 66 6c 6f 61 74 20 | 6c 65 61 73 74 2d 70 6f |e-float |least-po|
|00002870| 73 69 74 69 76 65 2d 66 | 6c 6f 61 74 20 6c 65 61 |sitive-f|loat lea|
|00002880| 73 74 2d 6e 65 67 61 74 | 69 76 65 2d 66 6c 6f 61 |st-negat|ive-floa|
|00002890| 74 20 6c 65 61 73 74 2d | 70 6f 73 69 74 69 76 65 |t least-|positive|
|000028a0| 2d 6e 6f 72 6d 61 6c 69 | 7a 65 64 2d 66 6c 6f 61 |-normali|zed-floa|
|000028b0| 74 20 6c 65 61 73 74 2d | 6e 65 67 61 74 69 76 65 |t least-|negative|
|000028c0| 2d 6e 6f 72 6d 61 6c 69 | 7a 65 64 2d 66 6c 6f 61 |-normali|zed-floa|
|000028d0| 74 20 66 6c 6f 61 74 2d | 65 70 73 69 6c 6f 6e 20 |t float-|epsilon |
|000028e0| 66 6c 6f 61 74 2d 6e 65 | 67 61 74 69 76 65 2d 65 |float-ne|gative-e|
|000028f0| 70 73 69 6c 6f 6e 5d 20 | 32 29 0a 28 64 65 66 61 |psilon] |2).(defa|
|00002900| 6c 69 61 73 20 27 63 6c | 2d 66 6c 6f 61 74 2d 6c |lias 'cl|-float-l|
|00002910| 69 6d 69 74 73 20 23 5b | 6e 69 6c 20 22 08 84 eb |imits #[|nil "...|
|00002920| 00 c1 a7 83 eb 00 c2 c3 | 89 1c 1d 1e 06 c7 c8 0e |........|........|
|00002930| 06 89 23 ab 88 0e 06 89 | 5f 16 06 aa 70 c7 c8 0e |..#.....|_...p...|
|00002940| 06 89 c9 a5 23 ab 8a 0e | 06 89 c9 a5 5f 16 06 aa |....#...|...._...|
|00002950| 6c c7 ca 0e 06 89 23 ab | 88 0e 06 89 5c 5c 16 06 |l.....#.|....\\..|
|00002960| aa 70 0e 06 14 0e 06 c9 | a5 15 c7 ca 0e 06 0d 23 |.p......|.......#|
|00002970| ab 95 0e 06 0d 5c 5c 0e | 06 55 ac 8c 0e 06 0d 5c |.....\\.|.U.....\|
|00002980| 5c 16 06 0d c9 a5 15 aa | 63 0e 06 10 0e 06 5b 16 |\.......|c.....[.|
|00002990| 0b 0e 06 0c a5 16 06 cc | 0c a5 15 0e 06 0d 5f 16 |........|......_.|
|000029a0| 06 cd ce cf 8f ab 8c 0e | 06 c9 a5 16 06 0d c9 a5 |........|........|
|000029b0| 15 aa 6e 0d 16 10 0d 5b | 16 11 d2 0c a5 89 16 06 |..n....[|........|
|000029c0| 15 cd d3 d4 8f ab 88 0e | 06 c9 a5 16 06 aa 72 0e |........|......r.|
|000029d0| 06 16 15 0e 06 5b 16 16 | d7 16 06 d8 0e 06 5c 5c |.....[..|......\\|
|000029e0| d9 55 ac 88 0e 06 c9 a5 | 16 06 aa 70 0e 06 89 5c |.U......|...p...\|
|000029f0| 5c 16 1a db 16 06 dc 0e | 06 5a dd 55 ac 88 0e 06 |\.......|.Z.U....|
|00002a00| c9 a5 16 06 aa 70 0e 06 | 89 5c 5c 16 1e 2b c3 87 |.....p..|.\\..+..|
|00002a10| 22 20 5b 6d 6f 73 74 2d | 70 6f 73 69 74 69 76 65 |" [most-|positive|
|00002a20| 2d 66 6c 6f 61 74 20 32 | 30 2e 30 20 32 2e 30 20 |-float 2|0.0 2.0 |
|00002a30| 6e 69 6c 20 7a 20 79 20 | 78 20 63 6c 2d 66 69 6e |nil z y |x cl-fin|
|00002a40| 69 74 65 2d 64 6f 20 2a | 20 32 20 2b 20 6d 6f 73 |ite-do *| 2 + mos|
|00002a50| 74 2d 6e 65 67 61 74 69 | 76 65 2d 66 6c 6f 61 74 |t-negati|ve-float|
|00002a60| 20 31 36 20 65 72 72 20 | 28 62 79 74 65 2d 63 6f | 16 err |(byte-co|
|00002a70| 64 65 20 22 08 89 c1 a5 | c1 5f 55 ad 85 5c 6e c1 |de "....|._U..\n.|
|00002a80| a5 c3 56 87 22 20 5b 78 | 20 32 20 79 20 30 5d 20 |..V." [x| 2 y 0] |
|00002a90| 33 29 20 28 28 61 72 69 | 74 68 2d 65 72 72 6f 72 |3) ((ari|th-error|
|00002aa0| 29 29 20 6c 65 61 73 74 | 2d 70 6f 73 69 74 69 76 |)) least|-positiv|
|00002ab0| 65 2d 6e 6f 72 6d 61 6c | 69 7a 65 64 2d 66 6c 6f |e-normal|ized-flo|
|00002ac0| 61 74 20 6c 65 61 73 74 | 2d 6e 65 67 61 74 69 76 |at least|-negativ|
|00002ad0| 65 2d 6e 6f 72 6d 61 6c | 69 7a 65 64 2d 66 6c 6f |e-normal|ized-flo|
|00002ae0| 61 74 20 31 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |at 1 (by|te-code |
|00002af0| 22 08 c1 a5 c2 56 87 22 | 20 5b 78 20 32 20 30 5d |"....V."| [x 2 0]|
|00002b00| 20 32 29 20 28 28 61 72 | 69 74 68 2d 65 72 72 6f | 2) ((ar|ith-erro|
|00002b10| 72 29 29 20 6c 65 61 73 | 74 2d 70 6f 73 69 74 69 |r)) leas|t-positi|
|00002b20| 76 65 2d 66 6c 6f 61 74 | 20 6c 65 61 73 74 2d 6e |ve-float| least-n|
|00002b30| 65 67 61 74 69 76 65 2d | 66 6c 6f 61 74 20 31 2e |egative-|float 1.|
|00002b40| 30 20 31 2e 30 20 31 2e | 30 20 66 6c 6f 61 74 2d |0 1.0 1.|0 float-|
|00002b50| 65 70 73 69 6c 6f 6e 20 | 31 2e 30 20 31 2e 30 20 |epsilon |1.0 1.0 |
|00002b60| 31 2e 30 20 66 6c 6f 61 | 74 2d 6e 65 67 61 74 69 |1.0 floa|t-negati|
|00002b70| 76 65 2d 65 70 73 69 6c | 6f 6e 5d 20 36 5d 29 0a |ve-epsil|on] 6]).|
|00002b80| 23 40 36 38 20 43 6f 6e | 63 61 74 65 6e 61 74 65 |#@68 Con|catenate|
|00002b90| 2c 20 69 6e 74 6f 20 61 | 20 73 65 71 75 65 6e 63 |, into a| sequenc|
|00002ba0| 65 20 6f 66 20 74 79 70 | 65 20 54 59 50 45 2c 20 |e of typ|e TYPE, |
|00002bb0| 74 68 65 20 61 72 67 75 | 6d 65 6e 74 20 53 45 51 |the argu|ment SEQ|
|00002bc0| 55 45 4e 43 45 53 2e 1f | 0a 28 64 65 66 61 6c 69 |UENCES..|.(defali|
|00002bd0| 61 73 20 27 63 6f 6e 63 | 61 74 65 6e 61 74 65 20 |as 'conc|atenate |
|00002be0| 23 5b 28 74 79 70 65 20 | 26 72 65 73 74 20 73 65 |#[(type |&rest se|
|00002bf0| 71 73 29 20 22 08 c1 61 | ab 85 c2 c3 0c 5c 22 87 |qs) "..a|.....\".|
|00002c00| 08 c5 61 ab 85 c2 c6 0c | 5c 22 87 08 c7 61 ab 88 |..a.....|\"...a..|
|00002c10| c2 c8 89 0c c9 5c 22 5c | 22 87 ca cb 08 5c 22 87 |.....\"\|"....\".|
|00002c20| 22 20 5b 74 79 70 65 20 | 76 65 63 74 6f 72 20 61 |" [type |vector a|
|00002c30| 70 70 6c 79 20 76 63 6f | 6e 63 61 74 20 73 65 71 |pply vco|ncat seq|
|00002c40| 73 20 73 74 72 69 6e 67 | 20 63 6f 6e 63 61 74 20 |s string| concat |
|00002c50| 6c 69 73 74 20 61 70 70 | 65 6e 64 20 28 6e 69 6c |list app|end (nil|
|00002c60| 29 20 65 72 72 6f 72 20 | 22 4e 6f 74 20 61 20 73 |) error |"Not a s|
|00002c70| 65 71 75 65 6e 63 65 20 | 74 79 70 65 20 6e 61 6d |equence |type nam|
|00002c80| 65 3a 20 25 73 22 5d 20 | 35 20 28 23 24 20 2e 20 |e: %s"] |5 (#$ . |
|00002c90| 31 31 31 34 31 29 5d 29 | 0a 23 40 33 39 20 45 71 |11141)])|.#@39 Eq|
|00002ca0| 75 69 76 61 6c 65 6e 74 | 20 74 6f 20 28 61 70 70 |uivalent| to (app|
|00002cb0| 65 6e 64 20 28 72 65 76 | 65 72 73 65 20 58 29 20 |end (rev|erse X) |
|00002cc0| 59 29 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |Y)...(de|falias '|
|00002cd0| 72 65 76 61 70 70 65 6e | 64 20 23 5b 28 78 20 79 |revappen|d #[(x y|
|00002ce0| 29 20 22 c0 09 21 5c 6e | a4 87 22 20 5b 72 65 76 |) "..!\n|.." [rev|
|00002cf0| 65 72 73 65 20 78 20 79 | 5d 20 32 20 28 23 24 20 |erse x y|] 2 (#$ |
|00002d00| 2e 20 31 31 34 32 32 29 | 5d 29 0a 23 40 33 39 20 |. 11422)|]).#@39 |
|00002d10| 45 71 75 69 76 61 6c 65 | 6e 74 20 74 6f 20 28 6e |Equivale|nt to (n|
|00002d20| 63 6f 6e 63 20 28 6e 72 | 65 76 65 72 73 65 20 58 |conc (nr|everse X|
|00002d30| 29 20 59 29 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |) Y)...(|defalias|
|00002d40| 20 27 6e 72 65 63 6f 6e | 63 20 23 5b 28 78 20 79 | 'nrecon|c #[(x y|
|00002d50| 29 20 22 08 9f 09 a4 87 | 22 20 5b 78 20 79 5d 20 |) ".....|" [x y] |
|00002d60| 32 20 28 23 24 20 2e 20 | 31 31 35 33 36 29 5d 29 |2 (#$ . |11536)])|
|00002d70| 0a 23 40 36 33 20 52 65 | 74 75 72 6e 20 74 68 65 |.#@63 Re|turn the|
|00002d80| 20 6c 65 6e 67 74 68 20 | 6f 66 20 61 20 6c 69 73 | length |of a lis|
|00002d90| 74 2e 20 20 52 65 74 75 | 72 6e 20 6e 69 6c 20 69 |t. Retu|rn nil i|
|00002da0| 66 20 6c 69 73 74 20 69 | 73 20 63 69 72 63 75 6c |f list i|s circul|
|00002db0| 61 72 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ar...(de|falias '|
|00002dc0| 6c 69 73 74 2d 6c 65 6e | 67 74 68 20 23 5b 28 78 |list-len|gth #[(x|
|00002dd0| 29 20 22 c0 09 89 1a 1b | 1c 0b 41 ab 97 0b 5c 6e |) ".....|..A...\n|
|00002de0| 61 ab 85 0c c0 56 ac 8d | 0c c5 5c 5c 14 0b 41 41 |a....V..|..\\..AA|
|00002df0| 13 5c 6e 41 12 aa 65 0b | ab 89 0b 41 3f ad 85 0c |.\nA..e.|...A?...|
|00002e00| 54 aa 81 0c 2b 87 22 20 | 5b 30 20 78 20 73 6c 6f |T...+." |[0 x slo|
|00002e10| 77 20 66 61 73 74 20 6e | 20 32 5d 20 33 20 28 23 |w fast n| 2] 3 (#|
|00002e20| 24 20 2e 20 31 31 36 33 | 38 29 5d 29 0a 23 40 34 |$ . 1163|8)]).#@4|
|00002e30| 33 20 52 65 74 75 72 6e | 20 74 72 75 65 20 69 66 |3 Return| true if|
|00002e40| 20 53 55 42 4c 49 53 54 | 20 69 73 20 61 20 74 61 | SUBLIST| is a ta|
|00002e50| 69 6c 20 6f 66 20 4c 49 | 53 54 2e 1f 0a 28 64 65 |il of LI|ST...(de|
|00002e60| 66 61 6c 69 61 73 20 27 | 74 61 69 6c 70 20 23 5b |falias '|tailp #[|
|00002e70| 28 73 75 62 6c 69 73 74 | 20 6c 69 73 74 29 20 22 |(sublist| list) "|
|00002e80| 08 3a ab 8b 09 08 61 ac | 86 08 41 89 10 aa 72 09 |.:....a.|..A...r.|
|00002e90| a7 ab 84 09 08 6b 87 09 | 08 61 87 22 20 5b 6c 69 |.....k..|.a." [li|
|00002ea0| 73 74 20 73 75 62 6c 69 | 73 74 5d 20 33 20 28 23 |st subli|st] 3 (#|
|00002eb0| 24 20 2e 20 31 31 38 32 | 36 29 5d 29 0a 23 40 32 |$ . 1182|6)]).#@2|
|00002ec0| 32 34 20 4d 61 6b 65 20 | 61 20 63 6f 70 79 20 6f |24 Make |a copy o|
|00002ed0| 66 20 54 52 45 45 2e 0a | 49 66 20 54 52 45 45 20 |f TREE..|If TREE |
|00002ee0| 69 73 20 61 20 63 6f 6e | 73 20 63 65 6c 6c 2c 20 |is a con|s cell, |
|00002ef0| 74 68 69 73 20 72 65 63 | 75 72 73 69 76 65 6c 79 |this rec|ursively|
|00002f00| 20 63 6f 70 69 65 73 20 | 62 6f 74 68 20 69 74 73 | copies |both its|
|00002f10| 20 63 61 72 20 61 6e 64 | 20 69 74 73 20 63 64 72 | car and| its cdr|
|00002f20| 2e 0a 43 6f 6e 74 72 61 | 73 74 20 74 6f 20 63 6f |..Contra|st to co|
|00002f30| 70 79 2d 73 65 71 75 65 | 6e 63 65 2c 20 77 68 69 |py-seque|nce, whi|
|00002f40| 63 68 20 63 6f 70 69 65 | 73 20 6f 6e 6c 79 20 61 |ch copie|s only a|
|00002f50| 6c 6f 6e 67 20 74 68 65 | 20 63 64 72 73 2e 20 20 |long the| cdrs. |
|00002f60| 57 69 74 68 20 73 65 63 | 6f 6e 64 0a 61 72 67 75 |With sec|ond.argu|
|00002f70| 6d 65 6e 74 20 56 45 43 | 50 2c 20 74 68 69 73 20 |ment VEC|P, this |
|00002f80| 63 6f 70 69 65 73 20 76 | 65 63 74 6f 72 73 20 61 |copies v|ectors a|
|00002f90| 73 20 77 65 6c 6c 20 61 | 73 20 63 6f 6e 73 65 73 |s well a|s conses|
|00002fa0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 6c |...(defa|lias 'cl|
|00002fb0| 2d 63 6f 70 79 2d 74 72 | 65 65 20 23 5b 28 74 72 |-copy-tr|ee #[(tr|
|00002fc0| 65 65 20 26 6f 70 74 69 | 6f 6e 61 6c 20 76 65 63 |ee &opti|onal vec|
|00002fd0| 70 29 20 22 08 3a ab b7 | c1 08 21 89 10 1a 5c 6e |p) ".:..|..!...\n|
|00002fe0| 3a ab aa 5c 6e 40 3a ac | 89 0b ab 8e c4 5c 6e 40 |:..\n@:.|.....\n@|
|00002ff0| 21 ab 88 5c 6e c5 5c 6e | 40 0b 5c 22 a0 88 5c 6e |!..\n.\n|@.\"..\n|
|00003000| 41 3c ac 88 5c 6e c5 5c | 6e 41 0b 5c 22 a1 88 5c |A<..\n.\|nA.\"..\|
|00003010| 6e 89 41 12 88 aa 52 29 | aa a9 0b ab a6 c4 08 21 |n.A...R)|.......!|
|00003020| ab a1 c6 08 21 89 10 47 | 1e 07 0e 07 53 89 16 07 |....!..G|....S...|
|00003030| c8 59 ab 8e 08 0e 07 c5 | 08 0e 07 48 0b 5c 22 49 |.Y......|...H.\"I|
|00003040| 88 aa 68 29 08 87 22 20 | 5b 74 72 65 65 20 63 6f |..h).." |[tree co|
|00003050| 70 79 2d 6c 69 73 74 20 | 70 20 76 65 63 70 20 76 |py-list |p vecp v|
|00003060| 65 63 74 6f 72 70 20 63 | 6c 2d 63 6f 70 79 2d 74 |ectorp c|l-copy-t|
|00003070| 72 65 65 20 63 6f 70 79 | 2d 73 65 71 75 65 6e 63 |ree copy|-sequenc|
|00003080| 65 20 69 20 30 5d 20 35 | 20 28 23 24 20 2e 20 31 |e i 0] 5| (#$ . 1|
|00003090| 31 39 37 31 29 5d 29 0a | 28 62 79 74 65 2d 63 6f |1971)]).|(byte-co|
|000030a0| 64 65 20 22 c0 c1 21 ab | 86 c2 c1 4b 21 ac 85 c3 |de "..!.|...K!...|
|000030b0| c1 c4 5c 22 88 c0 87 22 | 20 5b 66 62 6f 75 6e 64 |..\"..."| [fbound|
|000030c0| 70 20 63 6f 70 79 2d 74 | 72 65 65 20 73 75 62 72 |p copy-t|ree subr|
|000030d0| 70 20 64 65 66 61 6c 69 | 61 73 20 63 6c 2d 63 6f |p defali|as cl-co|
|000030e0| 70 79 2d 74 72 65 65 5d | 20 33 29 0a 23 40 36 39 |py-tree]| 3).#@69|
|000030f0| 20 52 65 74 75 72 6e 20 | 74 68 65 20 76 61 6c 75 | Return |the valu|
|00003100| 65 20 6f 66 20 53 59 4d | 42 4f 4c 27 73 20 50 52 |e of SYM|BOL's PR|
|00003110| 4f 50 4e 41 4d 45 20 70 | 72 6f 70 65 72 74 79 2c |OPNAME p|roperty,|
|00003120| 20 6f 72 20 44 45 46 41 | 55 4c 54 20 69 66 20 6e | or DEFA|ULT if n|
|00003130| 6f 6e 65 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |one...(d|efalias |
|00003140| 27 67 65 74 2a 20 23 5b | 28 73 79 6d 20 74 61 67 |'get* #[|(sym tag|
|00003150| 20 26 6f 70 74 69 6f 6e | 61 6c 20 64 65 66 29 20 | &option|al def) |
|00003160| 22 08 09 4e ae a1 5c 6e | ad 9e c3 08 21 89 1c ab |"..N..\n|....!...|
|00003170| 8d 0c 40 09 61 ac 87 0c | 41 41 89 14 ac 73 0c ab |..@.a...|AA...s..|
|00003180| 85 0c 41 40 aa 81 5c 6e | 29 87 22 20 5b 73 79 6d |..A@..\n|)." [sym|
|00003190| 20 74 61 67 20 64 65 66 | 20 73 79 6d 62 6f 6c 2d | tag def| symbol-|
|000031a0| 70 6c 69 73 74 20 70 6c | 69 73 74 5d 20 33 20 28 |plist pl|ist] 3 (|
|000031b0| 23 24 20 2e 20 31 32 35 | 32 39 29 5d 29 0a 23 40 |#$ . 125|29)]).#@|
|000031c0| 31 32 38 20 53 65 61 72 | 63 68 20 50 52 4f 50 4c |128 Sear|ch PROPL|
|000031d0| 49 53 54 20 66 6f 72 20 | 70 72 6f 70 65 72 74 79 |IST for |property|
|000031e0| 20 50 52 4f 50 4e 41 4d | 45 3b 20 72 65 74 75 72 | PROPNAM|E; retur|
|000031f0| 6e 20 69 74 73 20 76 61 | 6c 75 65 20 6f 72 20 44 |n its va|lue or D|
|00003200| 45 46 41 55 4c 54 2e 0a | 50 52 4f 50 4c 49 53 54 |EFAULT..|PROPLIST|
|00003210| 20 69 73 20 61 20 6c 69 | 73 74 20 6f 66 20 74 68 | is a li|st of th|
|00003220| 65 20 73 6f 72 74 20 72 | 65 74 75 72 6e 65 64 20 |e sort r|eturned |
|00003230| 62 79 20 60 73 79 6d 62 | 6f 6c 2d 70 6c 69 73 74 |by `symb|ol-plist|
|00003240| 27 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 67 |'...(def|alias 'g|
|00003250| 65 74 66 20 23 5b 28 70 | 6c 69 73 74 20 74 61 67 |etf #[(p|list tag|
|00003260| 20 26 6f 70 74 69 6f 6e | 61 6c 20 64 65 66 29 20 | &option|al def) |
|00003270| 22 c0 c1 5c 6e 5c 22 88 | c1 0b 4e ae 8a 0c ad 87 |"..\n\".|..N.....|
|00003280| c5 c6 c1 21 0b 0c 23 87 | 22 20 5b 73 65 74 70 6c |...!..#.|" [setpl|
|00003290| 69 73 74 20 2d 2d 63 6c | 2d 67 65 74 66 2d 73 79 |ist --cl|-getf-sy|
|000032a0| 6d 62 6f 6c 2d 2d 20 70 | 6c 69 73 74 20 74 61 67 |mbol-- p|list tag|
|000032b0| 20 64 65 66 20 67 65 74 | 66 20 73 79 6d 62 6f 6c | def get|f symbol|
|000032c0| 2d 70 6c 69 73 74 5d 20 | 34 20 28 23 24 20 2e 20 |-plist] |4 (#$ . |
|000032d0| 31 32 37 34 30 29 5d 29 | 0a 28 64 65 66 61 6c 69 |12740)])|.(defali|
|000032e0| 61 73 20 27 63 6c 2d 73 | 65 74 2d 67 65 74 66 20 |as 'cl-s|et-getf |
|000032f0| 23 5b 28 70 6c 69 73 74 | 20 74 61 67 20 76 61 6c |#[(plist| tag val|
|00003300| 29 20 22 08 89 19 ab 8d | 09 40 5c 6e 61 ac 87 09 |) ".....|.@\na...|
|00003310| 41 41 89 11 ac 73 09 ab | 88 09 41 0b a0 88 08 aa |AA...s..|..A.....|
|00003320| 85 5c 6e 0b 08 42 42 29 | 87 22 20 5b 70 6c 69 73 |.\n..BB)|." [plis|
|00003330| 74 20 70 20 74 61 67 20 | 76 61 6c 5d 20 34 5d 29 |t p tag |val] 4])|
|00003340| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 63 6c 2d 64 |.(defali|as 'cl-d|
|00003350| 6f 2d 72 65 6d 66 20 23 | 5b 28 70 6c 69 73 74 20 |o-remf #|[(plist |
|00003360| 74 61 67 29 20 22 08 41 | 89 19 41 ab 8e 09 41 40 |tag) ".A|..A...A@|
|00003370| 5c 6e 61 ac 87 09 41 41 | 89 11 aa 6f 09 41 ad 88 |\na...AA|...o.A..|
|00003380| 09 89 41 41 41 a1 88 c3 | 29 87 22 20 5b 70 6c 69 |..AAA...|)." [pli|
|00003390| 73 74 20 70 20 74 61 67 | 20 74 5d 20 33 5d 29 0a |st p tag| t] 3]).|
|000033a0| 23 40 36 31 20 52 65 6d | 6f 76 65 20 66 72 6f 6d |#@61 Rem|ove from|
|000033b0| 20 53 59 4d 42 4f 4c 27 | 73 20 70 6c 69 73 74 20 | SYMBOL'|s plist |
|000033c0| 74 68 65 20 70 72 6f 70 | 65 72 74 79 20 50 52 4f |the prop|erty PRO|
|000033d0| 50 20 61 6e 64 20 69 74 | 73 20 76 61 6c 75 65 2e |P and it|s value.|
|000033e0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 63 6c 2d |..(defal|ias 'cl-|
|000033f0| 72 65 6d 70 72 6f 70 20 | 23 5b 28 73 79 6d 20 74 |remprop |#[(sym t|
|00003400| 61 67 29 20 22 c0 09 21 | 89 1a ab 90 0b 5c 6e 40 |ag) "..!|.....\n@|
|00003410| 61 ab 8a c4 09 5c 6e 41 | 41 5c 22 88 c5 aa 84 c6 |a....\nA|A\".....|
|00003420| 5c 6e 0b 5c 22 29 87 22 | 20 5b 73 79 6d 62 6f 6c |\n.\")."| [symbol|
|00003430| 2d 70 6c 69 73 74 20 73 | 79 6d 20 70 6c 69 73 74 |-plist s|ym plist|
|00003440| 20 74 61 67 20 73 65 74 | 70 6c 69 73 74 20 74 20 | tag set|plist t |
|00003450| 63 6c 2d 64 6f 2d 72 65 | 6d 66 5d 20 34 20 28 23 |cl-do-re|mf] 4 (#|
|00003460| 24 20 2e 20 31 33 32 32 | 31 29 5d 29 0a 28 62 79 |$ . 1322|1)]).(by|
|00003470| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 21 ab 86 c2 c1 |te-code |"..!....|
|00003480| 4b 21 ac 85 c3 c1 c4 5c | 22 88 c0 87 22 20 5b 66 |K!.....\|"..." [f|
|00003490| 62 6f 75 6e 64 70 20 72 | 65 6d 70 72 6f 70 20 73 |boundp r|emprop s|
|000034a0| 75 62 72 70 20 64 65 66 | 61 6c 69 61 73 20 63 6c |ubrp def|alias cl|
|000034b0| 2d 72 65 6d 70 72 6f 70 | 5d 20 33 29 0a 23 40 32 |-remprop|] 3).#@2|
|000034c0| 39 39 20 4d 61 6b 65 20 | 61 6e 20 65 6d 70 74 79 |99 Make |an empty|
|000034d0| 20 43 6f 6d 6d 6f 6e 20 | 4c 69 73 70 2d 73 74 79 | Common |Lisp-sty|
|000034e0| 6c 65 20 68 61 73 68 2d | 74 61 62 6c 65 2e 0a 49 |le hash-|table..I|
|000034f0| 66 20 3a 74 65 73 74 20 | 69 73 20 60 65 71 27 2c |f :test |is `eq',|
|00003500| 20 60 65 71 6c 27 2c 20 | 6f 72 20 60 65 71 75 61 | `eql', |or `equa|
|00003510| 6c 27 2c 20 74 68 69 73 | 20 63 61 6e 20 75 73 65 |l', this| can use|
|00003520| 20 58 45 6d 61 63 73 20 | 62 75 69 6c 74 2d 69 6e | XEmacs |built-in|
|00003530| 20 68 61 73 68 2d 74 61 | 62 6c 65 73 2e 0a 49 6e | hash-ta|bles..In|
|00003540| 20 45 6d 61 63 73 20 31 | 39 2c 20 6f 72 20 77 69 | Emacs 1|9, or wi|
|00003550| 74 68 20 61 20 64 69 66 | 66 65 72 65 6e 74 20 74 |th a dif|ferent t|
|00003560| 65 73 74 2c 20 74 68 69 | 73 20 69 6e 74 65 72 6e |est, thi|s intern|
|00003570| 61 6c 6c 79 20 75 73 65 | 73 20 61 2d 6c 69 73 74 |ally use|s a-list|
|00003580| 73 2e 0a 4b 65 79 77 6f | 72 64 73 20 73 75 70 70 |s..Keywo|rds supp|
|00003590| 6f 72 74 65 64 3a 20 20 | 3a 74 65 73 74 20 3a 73 |orted: |:test :s|
|000035a0| 69 7a 65 0a 54 68 65 20 | 43 6f 6d 6d 6f 6e 20 4c |ize.The |Common L|
|000035b0| 69 73 70 20 6b 65 79 77 | 6f 72 64 73 20 3a 72 65 |isp keyw|ords :re|
|000035c0| 68 61 73 68 2d 73 69 7a | 65 20 61 6e 64 20 3a 72 |hash-siz|e and :r|
|000035d0| 65 68 61 73 68 2d 74 68 | 72 65 73 68 6f 6c 64 20 |ehash-th|reshold |
|000035e0| 61 72 65 20 69 67 6e 6f | 72 65 64 2e 1f 0a 28 64 |are igno|red...(d|
|000035f0| 65 66 61 6c 69 61 73 20 | 27 6d 61 6b 65 2d 68 61 |efalias |'make-ha|
|00003600| 73 68 2d 74 61 62 6c 65 | 20 23 5b 28 26 72 65 73 |sh-table| #[(&res|
|00003610| 74 20 63 6c 2d 6b 65 79 | 73 29 20 22 c0 09 73 41 |t cl-key|s) "..sA|
|00003620| 40 ae 81 c2 c3 09 73 41 | 40 ae 81 c4 1d 89 1e 06 |@.....sA|@.......|
|00003630| c7 73 ab 8c c8 c9 21 ab | 87 c9 0d 0e 06 5c 22 aa |.s....!.|.....\".|
|00003640| 9c ca 0e 06 0d cb 56 ab | 86 cc 0d cd 5c 22 aa 8c |......V.|....\"..|
|00003650| ce cf 21 89 1e 10 d1 4c | 88 0e 10 29 cd 46 2a 87 |..!....L|...).F*.|
|00003660| 22 20 5b 3a 74 65 73 74 | 20 63 6c 2d 6b 65 79 73 |" [:test| cl-keys|
|00003670| 20 65 71 6c 20 3a 73 69 | 7a 65 20 32 30 20 63 6c | eql :si|ze 20 cl|
|00003680| 2d 73 69 7a 65 20 63 6c | 2d 74 65 73 74 20 28 65 |-size cl|-test (e|
|00003690| 71 20 65 71 6c 20 65 71 | 75 61 6c 29 20 66 62 6f |q eql eq|ual) fbo|
|000036a0| 75 6e 64 70 20 6d 61 6b | 65 2d 68 61 73 68 74 61 |undp mak|e-hashta|
|000036b0| 62 6c 65 20 63 6c 2d 68 | 61 73 68 2d 74 61 62 6c |ble cl-h|ash-tabl|
|000036c0| 65 2d 74 61 67 20 31 20 | 6d 61 6b 65 2d 76 65 63 |e-tag 1 |make-vec|
|000036d0| 74 6f 72 20 30 20 6d 61 | 6b 65 2d 73 79 6d 62 6f |tor 0 ma|ke-symbo|
|000036e0| 6c 20 22 2d 2d 68 61 73 | 68 73 79 6d 2d 2d 22 20 |l "--has|hsym--" |
|000036f0| 73 79 6d 20 6e 69 6c 5d | 20 36 20 28 23 24 20 2e |sym nil]| 6 (#$ .|
|00003700| 20 31 33 35 30 37 29 5d | 29 0a 28 62 79 74 65 2d | 13507)]|).(byte-|
|00003710| 63 6f 64 65 20 22 c0 c1 | 21 ac 97 c2 c3 21 ab 8e |code "..|!....!..|
|00003720| c4 c3 c5 21 21 ab 87 c3 | c5 21 c6 48 aa 83 c7 c8 |...!!...|.!.H....|
|00003730| 21 11 c1 0e 09 42 16 09 | c0 87 22 20 5b 62 6f 75 |!....B..|.." [bou|
|00003740| 6e 64 70 20 63 6c 2d 6c | 75 63 69 64 2d 68 61 73 |ndp cl-l|ucid-has|
|00003750| 68 2d 74 61 67 20 66 62 | 6f 75 6e 64 70 20 6d 61 |h-tag fb|oundp ma|
|00003760| 6b 65 2d 68 61 73 68 74 | 61 62 6c 65 20 76 65 63 |ke-hasht|able vec|
|00003770| 74 6f 72 70 20 31 20 30 | 20 6d 61 6b 65 2d 73 79 |torp 1 0| make-sy|
|00003780| 6d 62 6f 6c 20 22 2d 2d | 63 6c 2d 68 61 73 68 2d |mbol "--|cl-hash-|
|00003790| 74 61 67 2d 2d 22 20 63 | 75 72 72 65 6e 74 2d 6c |tag--" c|urrent-l|
|000037a0| 6f 61 64 2d 6c 69 73 74 | 5d 20 33 29 0a 23 40 33 |oad-list|] 3).#@3|
|000037b0| 37 20 52 65 74 75 72 6e | 20 74 20 69 66 20 4f 42 |7 Return| t if OB|
|000037c0| 4a 45 43 54 20 69 73 20 | 61 20 68 61 73 68 20 74 |JECT is |a hash t|
|000037d0| 61 62 6c 65 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |able...(|defalias|
|000037e0| 20 27 68 61 73 68 2d 74 | 61 62 6c 65 2d 70 20 23 | 'hash-t|able-p #|
|000037f0| 5b 28 78 29 20 22 08 a2 | c1 61 ae 9a c2 08 21 ab |[(x) "..|.a....!.|
|00003800| 8d 08 47 c3 55 ab 87 08 | c4 48 0d 61 ae 88 c6 c7 |..G.U...|.H.a....|
|00003810| 21 ad 83 c7 08 21 87 22 | 20 5b 78 20 63 6c 2d 68 |!....!."| [x cl-h|
|00003820| 61 73 68 2d 74 61 62 6c | 65 2d 74 61 67 20 76 65 |ash-tabl|e-tag ve|
|00003830| 63 74 6f 72 70 20 34 20 | 30 20 63 6c 2d 6c 75 63 |ctorp 4 |0 cl-luc|
|00003840| 69 64 2d 68 61 73 68 2d | 74 61 67 20 66 62 6f 75 |id-hash-|tag fbou|
|00003850| 6e 64 70 20 68 61 73 68 | 74 61 62 6c 65 70 5d 20 |ndp hash|tablep] |
|00003860| 32 20 28 23 24 20 2e 20 | 31 34 32 35 38 29 5d 29 |2 (#$ . |14258)])|
|00003870| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 63 6c 2d 6e |.(defali|as 'cl-n|
|00003880| 6f 74 2d 68 61 73 68 2d | 74 61 62 6c 65 20 23 5b |ot-hash-|table #[|
|00003890| 28 78 20 26 6f 70 74 69 | 6f 6e 61 6c 20 79 20 26 |(x &opti|onal y &|
|000038a0| 72 65 73 74 20 7a 29 20 | 22 c0 c1 c2 0b ae 81 0c |rest z) |".......|
|000038b0| 44 5c 22 87 22 20 5b 73 | 69 67 6e 61 6c 20 77 72 |D\"." [s|ignal wr|
|000038c0| 6f 6e 67 2d 74 79 70 65 | 2d 61 72 67 75 6d 65 6e |ong-type|-argumen|
|000038d0| 74 20 68 61 73 68 2d 74 | 61 62 6c 65 2d 70 20 79 |t hash-t|able-p y|
|000038e0| 20 78 5d 20 34 5d 29 0a | 28 64 65 66 61 6c 69 61 | x] 4]).|(defalia|
|000038f0| 73 20 27 63 6c 2d 68 61 | 73 68 2d 6c 6f 6f 6b 75 |s 'cl-ha|sh-looku|
|00003900| 70 20 23 5b 28 6b 65 79 | 20 74 61 62 6c 65 29 20 |p #[(key| table) |
|00003910| 22 08 a2 c1 61 ac 84 c2 | 08 21 88 c3 08 38 1c 08 |"...a...|.!...8..|
|00003920| 41 40 1d 0e 06 1e 07 c8 | 1e 09 0c 39 ab 89 c8 16 |A@......|...9....|
|00003930| 07 0c 4a 16 09 aa eb 0e | 07 3a ac 8d ca 0e 07 21 |..J.....|.:.....!|
|00003940| ab 90 0e 07 47 cb 56 ab | 89 0e 07 cb 9c 89 16 07 |....G.V.|........|
|00003950| aa 67 0e 07 3b ab 8c 0d | cc 61 ab be 0e 07 97 16 |.g..;...|.a......|
|00003960| 07 aa b7 0e 07 39 ab 88 | cd 0e 07 21 16 07 aa aa |.....9..|...!....|
|00003970| 0e 07 a7 ab a2 0e 07 ce | 56 ab 9c 0e 07 cf 57 ab |........|V.....W.|
|00003980| 96 0e 07 a8 ac 86 d0 0e | 07 21 16 07 d1 d2 0e 07 |........|.!......|
|00003990| d3 5c 22 48 16 07 aa 83 | d4 16 07 d5 0e 07 0c 5c |.\"H....|.......\|
|000039a0| 22 4a 16 09 0e 09 ad ab | 0d d6 61 ac 8a 0d d7 61 |"J......|..a....a|
|000039b0| ab 8c 0e 06 a7 ac 87 0e | 06 0e 09 b7 aa 95 0d d8 |........|........|
|000039c0| 73 ab 88 d9 0e 06 0e 09 | 5c 22 aa 88 da 0e 06 0e |s.......|\"......|
|000039d0| 09 db 0d 24 0e 09 0e 07 | 45 2c 87 22 20 5b 74 61 |...$....|E,." [ta|
|000039e0| 62 6c 65 20 63 6c 2d 68 | 61 73 68 2d 74 61 62 6c |ble cl-h|ash-tabl|
|000039f0| 65 2d 74 61 67 20 63 6c | 2d 6e 6f 74 2d 68 61 73 |e-tag cl|-not-has|
|00003a00| 68 2d 74 61 62 6c 65 20 | 32 20 61 72 72 61 79 20 |h-table |2 array |
|00003a10| 74 65 73 74 20 6b 65 79 | 20 73 74 72 20 6e 69 6c |test key| str nil|
|00003a20| 20 73 79 6d 20 76 65 63 | 74 6f 72 70 20 30 20 65 | sym vec|torp 0 e|
|00003a30| 71 75 61 6c 70 20 73 79 | 6d 62 6f 6c 2d 6e 61 6d |qualp sy|mbol-nam|
|00003a40| 65 20 2d 38 30 30 30 30 | 30 30 20 38 30 30 30 30 |e -80000|00 80000|
|00003a50| 30 30 20 74 72 75 6e 63 | 61 74 65 20 5b 22 30 22 |00 trunc|ate ["0"|
|00003a60| 20 22 31 22 20 22 32 22 | 20 22 33 22 20 22 34 22 | "1" "2"| "3" "4"|
|00003a70| 20 22 35 22 20 22 36 22 | 20 22 37 22 20 22 38 22 | "5" "6"| "7" "8"|
|00003a80| 20 22 39 22 20 22 31 30 | 22 20 22 31 31 22 20 22 | "9" "10|" "11" "|
|00003a90| 31 32 22 20 22 31 33 22 | 20 22 31 34 22 20 22 31 |12" "13"| "14" "1|
|00003aa0| 35 22 5d 20 6c 6f 67 61 | 6e 64 20 31 35 20 22 2a |5"] loga|nd 15 "*|
|00003ab0| 22 20 69 6e 74 65 72 6e | 2d 73 6f 66 74 20 65 71 |" intern|-soft eq|
|00003ac0| 20 65 71 6c 20 28 65 71 | 6c 20 65 71 75 61 6c 29 | eql (eq|l equal)|
|00003ad0| 20 61 73 73 6f 63 20 61 | 73 73 6f 63 2a 20 3a 74 | assoc a|ssoc* :t|
|00003ae0| 65 73 74 5d 20 36 5d 29 | 0a 28 62 79 74 65 2d 63 |est] 6])|.(byte-c|
|00003af0| 6f 64 65 20 22 c0 c1 21 | ac 91 c2 c3 21 ab 8a c4 |ode "..!|....!...|
|00003b00| c3 4b 21 ab 84 c3 4b aa | 81 c5 11 c1 0e 06 42 16 |.K!...K.|......B.|
|00003b10| 06 c0 c7 21 ac 92 c2 c8 | 21 ab 8a c4 c8 4b 21 ab |...!....|!....K!.|
|00003b20| 84 c8 4b aa 81 c5 16 07 | c7 0e 06 42 16 06 c0 c9 |..K.....|...B....|
|00003b30| 21 ac 92 c2 ca 21 ab 8a | c4 ca 4b 21 ab 84 ca 4b |!....!..|..K!...K|
|00003b40| aa 81 c5 16 09 c9 0e 06 | 42 16 06 c0 cb 21 ac 92 |........|B....!..|
|00003b50| c2 cc 21 ab 8a c4 cc 4b | 21 ab 84 cc 4b aa 81 c5 |..!....K|!...K...|
|00003b60| 16 0b cb 0e 06 42 16 06 | c0 87 22 20 5b 62 6f 75 |.....B..|.." [bou|
|00003b70| 6e 64 70 20 63 6c 2d 62 | 75 69 6c 74 69 6e 2d 67 |ndp cl-b|uiltin-g|
|00003b80| 65 74 68 61 73 68 20 66 | 62 6f 75 6e 64 70 20 67 |ethash f|boundp g|
|00003b90| 65 74 68 61 73 68 20 73 | 75 62 72 70 20 63 6c 2d |ethash s|ubrp cl-|
|00003ba0| 6e 6f 74 2d 68 61 73 68 | 2d 74 61 62 6c 65 20 63 |not-hash|-table c|
|00003bb0| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|00003bc0| 20 63 6c 2d 62 75 69 6c | 74 69 6e 2d 72 65 6d 68 | cl-buil|tin-remh|
|00003bd0| 61 73 68 20 72 65 6d 68 | 61 73 68 20 63 6c 2d 62 |ash remh|ash cl-b|
|00003be0| 75 69 6c 74 69 6e 2d 63 | 6c 72 68 61 73 68 20 63 |uiltin-c|lrhash c|
|00003bf0| 6c 72 68 61 73 68 20 63 | 6c 2d 62 75 69 6c 74 69 |lrhash c|l-builti|
|00003c00| 6e 2d 6d 61 70 68 61 73 | 68 20 6d 61 70 68 61 73 |n-maphas|h maphas|
|00003c10| 68 5d 20 32 29 0a 23 40 | 36 38 20 4c 6f 6f 6b 20 |h] 2).#@|68 Look |
|00003c20| 75 70 20 4b 45 59 20 69 | 6e 20 48 41 53 48 2d 54 |up KEY i|n HASH-T|
|00003c30| 41 42 4c 45 3b 20 72 65 | 74 75 72 6e 20 63 6f 72 |ABLE; re|turn cor|
|00003c40| 72 65 73 70 6f 6e 64 69 | 6e 67 20 76 61 6c 75 65 |respondi|ng value|
|00003c50| 2c 20 6f 72 20 44 45 46 | 41 55 4c 54 2e 1f 0a 28 |, or DEF|AULT...(|
|00003c60| 64 65 66 61 6c 69 61 73 | 20 27 63 6c 2d 67 65 74 |defalias| 'cl-get|
|00003c70| 68 61 73 68 20 23 5b 28 | 6b 65 79 20 74 61 62 6c |hash #[(|key tabl|
|00003c80| 65 20 26 6f 70 74 69 6f | 6e 61 6c 20 64 65 66 29 |e &optio|nal def)|
|00003c90| 20 22 08 3a ab 91 c1 5c | 6e 08 5c 22 89 1b 40 ab | ".:...\|n.\"..@.|
|00003ca0| 85 0b 40 41 aa 81 0c 29 | 87 0d 5c 6e 08 0c 23 87 |..@A...)|..\n..#.|
|00003cb0| 22 20 5b 74 61 62 6c 65 | 20 63 6c 2d 68 61 73 68 |" [table| cl-hash|
|00003cc0| 2d 6c 6f 6f 6b 75 70 20 | 6b 65 79 20 66 6f 75 6e |-lookup |key foun|
|00003cd0| 64 20 64 65 66 20 63 6c | 2d 62 75 69 6c 74 69 6e |d def cl|-builtin|
|00003ce0| 2d 67 65 74 68 61 73 68 | 5d 20 35 20 28 23 24 20 |-gethash|] 5 (#$ |
|00003cf0| 2e 20 31 35 33 38 37 29 | 5d 29 0a 28 64 65 66 61 |. 15387)|]).(defa|
|00003d00| 6c 69 61 73 20 27 67 65 | 74 68 61 73 68 20 27 63 |lias 'ge|thash 'c|
|00003d10| 6c 2d 67 65 74 68 61 73 | 68 29 0a 28 64 65 66 61 |l-gethas|h).(defa|
|00003d20| 6c 69 61 73 20 27 63 6c | 2d 70 75 74 68 61 73 68 |lias 'cl|-puthash|
|00003d30| 20 23 5b 28 6b 65 79 20 | 76 61 6c 20 74 61 62 6c | #[(key |val tabl|
|00003d40| 65 29 20 22 08 3a ab e4 | c1 5c 6e 08 5c 22 89 1b |e) ".:..|.\n.\"..|
|00003d50| 40 ab 87 0b 40 0c a1 88 | aa d1 c5 0b 38 ab b6 c6 |@...@...|....8...|
|00003d60| 08 38 c5 08 38 47 c6 5f | 56 ab 97 c7 c6 08 38 c8 |.8..8G._|V.....8.|
|00003d70| 5c 22 1e 09 ca cb c5 08 | 38 5c 22 88 08 41 41 0e |\"......|8\"..AA.|
|00003d80| 09 a0 88 29 cc c5 0b 38 | c5 08 38 5c 22 5c 6e 0c |...)...8|..8\"\n.|
|00003d90| 42 0b 41 40 42 4c 88 aa | 8c c5 08 38 5c 6e 0c 42 |B.A@BL..|...8\n.B|
|00003da0| 0b 41 40 42 4c 88 08 41 | 41 41 c6 08 38 54 a0 88 |.A@BL..A|AA..8T..|
|00003db0| 29 aa 86 cd 5c 6e 0c 08 | 23 88 0c 87 22 20 5b 74 |)...\n..|#..." [t|
|00003dc0| 61 62 6c 65 20 63 6c 2d | 68 61 73 68 2d 6c 6f 6f |able cl-|hash-loo|
|00003dd0| 6b 75 70 20 6b 65 79 20 | 66 6f 75 6e 64 20 76 61 |kup key |found va|
|00003de0| 6c 20 32 20 33 20 6d 61 | 6b 65 2d 76 65 63 74 6f |l 2 3 ma|ke-vecto|
|00003df0| 72 20 30 20 6e 65 77 2d | 74 61 62 6c 65 20 6d 61 |r 0 new-|table ma|
|00003e00| 70 61 74 6f 6d 73 20 23 | 5b 28 73 79 6d 29 20 22 |patoms #|[(sym) "|
|00003e10| c0 c1 5c 6e 21 0b 5c 22 | 5c 6e 4a 4c 87 22 20 5b |..\n!.\"|\nJL." [|
|00003e20| 69 6e 74 65 72 6e 20 73 | 79 6d 62 6f 6c 2d 6e 61 |intern s|ymbol-na|
|00003e30| 6d 65 20 73 79 6d 20 6e | 65 77 2d 74 61 62 6c 65 |me sym n|ew-table|
|00003e40| 5d 20 33 5d 20 69 6e 74 | 65 72 6e 20 70 75 74 68 |] 3] int|ern puth|
|00003e50| 61 73 68 5d 20 35 5d 29 | 0a 23 40 32 39 20 52 65 |ash] 5])|.#@29 Re|
|00003e60| 6d 6f 76 65 20 4b 45 59 | 20 66 72 6f 6d 20 48 41 |move KEY| from HA|
|00003e70| 53 48 2d 54 41 42 4c 45 | 2e 1f 0a 28 64 65 66 61 |SH-TABLE|...(defa|
|00003e80| 6c 69 61 73 20 27 63 6c | 2d 72 65 6d 68 61 73 68 |lias 'cl|-remhash|
|00003e90| 20 23 5b 28 6b 65 79 20 | 74 61 62 6c 65 29 20 22 | #[(key |table) "|
|00003ea0| 08 3a ab b7 c1 5c 6e 08 | 5c 22 89 1b 40 ad ac c4 |.:...\n.|\"..@...|
|00003eb0| 0b 40 0b 41 40 5c 22 1d | 08 41 41 41 c6 08 38 53 |.@.A@\".|.AAA..8S|
|00003ec0| a0 88 c7 0b 38 ab 8d c8 | c7 0b 38 c7 08 38 5c 22 |....8...|..8..8\"|
|00003ed0| 0d 4c 88 aa 86 c7 08 38 | 0d 4c 88 29 c9 29 87 0e |.L.....8|.L.).)..|
|00003ee0| 5c 6e 5c 6e 08 cb 23 cb | 61 3f 0e 0c 5c 6e 08 5c |\n\n..#.|a?..\n.\|
|00003ef0| 22 88 87 22 20 5b 74 61 | 62 6c 65 20 63 6c 2d 68 |".." [ta|ble cl-h|
|00003f00| 61 73 68 2d 6c 6f 6f 6b | 75 70 20 6b 65 79 20 66 |ash-look|up key f|
|00003f10| 6f 75 6e 64 20 64 65 6c | 71 20 64 65 6c 20 33 20 |ound del|q del 3 |
|00003f20| 32 20 69 6e 74 65 72 6e | 20 74 20 63 6c 2d 62 75 |2 intern| t cl-bu|
|00003f30| 69 6c 74 69 6e 2d 67 65 | 74 68 61 73 68 20 2d 2d |iltin-ge|thash --|
|00003f40| 63 6c 2d 2d 20 63 6c 2d | 62 75 69 6c 74 69 6e 2d |cl-- cl-|builtin-|
|00003f50| 72 65 6d 68 61 73 68 5d | 20 35 20 28 23 24 20 2e |remhash]| 5 (#$ .|
|00003f60| 20 31 35 39 36 36 29 5d | 29 0a 28 64 65 66 61 6c | 15966)]|).(defal|
|00003f70| 69 61 73 20 27 72 65 6d | 68 61 73 68 20 27 63 6c |ias 'rem|hash 'cl|
|00003f80| 2d 72 65 6d 68 61 73 68 | 29 0a 23 40 31 39 20 43 |-remhash|).#@19 C|
|00003f90| 6c 65 61 72 20 48 41 53 | 48 2d 54 41 42 4c 45 2e |lear HAS|H-TABLE.|
|00003fa0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 63 6c 2d |..(defal|ias 'cl-|
|00003fb0| 63 6c 72 68 61 73 68 20 | 23 5b 28 74 61 62 6c 65 |clrhash |#[(table|
|00003fc0| 29 20 22 08 3a ab ac c1 | 08 21 ac 84 c2 08 21 88 |) ".:...|.!....!.|
|00003fd0| c3 08 38 39 ab 88 c3 08 | 38 c4 4c 88 aa 8c 08 41 |..89....|8.L....A|
|00003fe0| 41 c5 c3 08 38 47 c6 5c | 22 a0 88 08 41 41 41 c6 |A...8G.\|"...AAA.|
|00003ff0| a0 88 aa 85 0e 07 08 21 | 88 c4 87 22 20 5b 74 61 |.......!|..." [ta|
|00004000| 62 6c 65 20 68 61 73 68 | 2d 74 61 62 6c 65 2d 70 |ble hash|-table-p|
|00004010| 20 63 6c 2d 6e 6f 74 2d | 68 61 73 68 2d 74 61 62 | cl-not-|hash-tab|
|00004020| 6c 65 20 32 20 6e 69 6c | 20 6d 61 6b 65 2d 76 65 |le 2 nil| make-ve|
|00004030| 63 74 6f 72 20 30 20 63 | 6c 2d 62 75 69 6c 74 69 |ctor 0 c|l-builti|
|00004040| 6e 2d 63 6c 72 68 61 73 | 68 5d 20 34 20 28 23 24 |n-clrhas|h] 4 (#$|
|00004050| 20 2e 20 31 36 32 37 31 | 29 5d 29 0a 28 64 65 66 | . 16271|)]).(def|
|00004060| 61 6c 69 61 73 20 27 63 | 6c 72 68 61 73 68 20 27 |alias 'c|lrhash '|
|00004070| 63 6c 2d 63 6c 72 68 61 | 73 68 29 0a 23 40 35 31 |cl-clrha|sh).#@51|
|00004080| 20 43 61 6c 6c 20 46 55 | 4e 43 54 49 4f 4e 20 6f | Call FU|NCTION o|
|00004090| 6e 20 6b 65 79 73 20 61 | 6e 64 20 76 61 6c 75 65 |n keys a|nd value|
|000040a0| 73 20 66 72 6f 6d 20 48 | 41 53 48 2d 54 41 42 4c |s from H|ASH-TABL|
|000040b0| 45 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 63 |E...(def|alias 'c|
|000040c0| 6c 2d 6d 61 70 68 61 73 | 68 20 23 5b 28 63 6c 2d |l-maphas|h #[(cl-|
|000040d0| 66 75 6e 63 20 63 6c 2d | 74 61 62 6c 65 29 20 22 |func cl-|table) "|
|000040e0| c0 09 21 ac 84 c2 09 21 | 88 09 3a ab 94 c3 c4 c5 |..!....!|..:.....|
|000040f0| 09 38 39 ab 87 c6 c5 09 | 38 21 aa 83 c5 09 38 5c |.89.....|8!....8\|
|00004100| 22 87 0e 07 0e 08 09 5c | 22 87 22 20 5b 68 61 73 |"......\|"." [has|
|00004110| 68 2d 74 61 62 6c 65 2d | 70 20 63 6c 2d 74 61 62 |h-table-|p cl-tab|
|00004120| 6c 65 20 63 6c 2d 6e 6f | 74 2d 68 61 73 68 2d 74 |le cl-no|t-hash-t|
|00004130| 61 62 6c 65 20 6d 61 70 | 61 74 6f 6d 73 20 23 5b |able map|atoms #[|
|00004140| 28 63 6c 2d 78 29 20 22 | 08 4a 89 10 ad 90 09 08 |(cl-x) "|.J......|
|00004150| 40 40 08 40 41 5c 22 88 | 08 41 89 10 ac 71 c2 87 |@@.@A\".|.A...q..|
|00004160| 22 20 5b 63 6c 2d 78 20 | 63 6c 2d 66 75 6e 63 20 |" [cl-x |cl-func |
|00004170| 6e 69 6c 5d 20 34 5d 20 | 32 20 76 65 63 74 6f 72 |nil] 4] |2 vector|
|00004180| 20 63 6c 2d 62 75 69 6c | 74 69 6e 2d 6d 61 70 68 | cl-buil|tin-maph|
|00004190| 61 73 68 20 63 6c 2d 66 | 75 6e 63 5d 20 35 20 28 |ash cl-f|unc] 5 (|
|000041a0| 23 24 20 2e 20 31 36 35 | 31 33 29 5d 29 0a 28 64 |#$ . 165|13)]).(d|
|000041b0| 65 66 61 6c 69 61 73 20 | 27 6d 61 70 68 61 73 68 |efalias |'maphash|
|000041c0| 20 27 63 6c 2d 6d 61 70 | 68 61 73 68 29 0a 23 40 | 'cl-map|hash).#@|
|000041d0| 34 35 20 52 65 74 75 72 | 6e 20 74 68 65 20 6e 75 |45 Retur|n the nu|
|000041e0| 6d 62 65 72 20 6f 66 20 | 65 6e 74 72 69 65 73 20 |mber of |entries |
|000041f0| 69 6e 20 48 41 53 48 2d | 54 41 42 4c 45 2e 1f 0a |in HASH-|TABLE...|
|00004200| 28 64 65 66 61 6c 69 61 | 73 20 27 68 61 73 68 2d |(defalia|s 'hash-|
|00004210| 74 61 62 6c 65 2d 63 6f | 75 6e 74 20 23 5b 28 74 |table-co|unt #[(t|
|00004220| 61 62 6c 65 29 20 22 c0 | 09 21 ac 84 c2 09 21 88 |able) ".|.!....!.|
|00004230| 09 3a ab 84 c3 09 38 87 | c4 09 21 87 22 20 5b 68 |.:....8.|..!." [h|
|00004240| 61 73 68 2d 74 61 62 6c | 65 2d 70 20 74 61 62 6c |ash-tabl|e-p tabl|
|00004250| 65 20 63 6c 2d 6e 6f 74 | 2d 68 61 73 68 2d 74 61 |e cl-not|-hash-ta|
|00004260| 62 6c 65 20 33 20 68 61 | 73 68 74 61 62 6c 65 2d |ble 3 ha|shtable-|
|00004270| 66 75 6c 6c 6e 65 73 73 | 5d 20 32 20 28 23 24 20 |fullness|] 2 (#$ |
|00004280| 2e 20 31 36 38 35 31 29 | 5d 29 0a 23 40 36 39 20 |. 16851)|]).#@69 |
|00004290| 49 6e 73 65 72 74 20 61 | 20 70 72 65 74 74 79 2d |Insert a| pretty-|
|000042a0| 70 72 69 6e 74 65 64 20 | 72 65 6e 64 69 74 69 6f |printed |renditio|
|000042b0| 6e 20 6f 66 20 61 20 4c | 69 73 70 20 46 4f 52 4d |n of a L|isp FORM|
|000042c0| 20 69 6e 20 63 75 72 72 | 65 6e 74 20 62 75 66 66 | in curr|ent buff|
|000042d0| 65 72 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |er...(de|falias '|
|000042e0| 63 6c 2d 70 72 65 74 74 | 79 70 72 69 6e 74 20 23 |cl-prett|yprint #|
|000042f0| 5b 28 66 6f 72 6d 29 20 | 22 60 c0 19 1a c3 c4 0d |[(form) |"`......|
|00004300| 21 c3 b1 03 88 60 11 5c | 6e 54 62 88 c6 c7 09 c8 |!....`.\|nTb.....|
|00004310| 23 ab 90 c9 ca 21 88 cb | 63 88 cc 20 88 cd ce 21 |#....!..|c.. ...!|
|00004320| 88 aa 69 5c 6e 54 62 88 | cf 20 2a 87 22 20 5b 6e |..i\nTb.|. *." [n|
|00004330| 69 6c 20 6c 61 73 74 20 | 70 74 20 22 5c 6e 22 20 |il last |pt "\n" |
|00004340| 70 72 69 6e 31 2d 74 6f | 2d 73 74 72 69 6e 67 20 |prin1-to|-string |
|00004350| 66 6f 72 6d 20 73 65 61 | 72 63 68 2d 66 6f 72 77 |form sea|rch-forw|
|00004360| 61 72 64 20 22 28 71 75 | 6f 74 65 20 22 20 74 20 |ard "(qu|ote " t |
|00004370| 64 65 6c 65 74 65 2d 62 | 61 63 6b 77 61 72 64 2d |delete-b|ackward-|
|00004380| 63 68 61 72 20 37 20 22 | 27 22 20 66 6f 72 77 61 |char 7 "|'" forwa|
|00004390| 72 64 2d 73 65 78 70 20 | 64 65 6c 65 74 65 2d 63 |rd-sexp |delete-c|
|000043a0| 68 61 72 20 31 20 63 6c | 2d 64 6f 2d 70 72 65 74 |har 1 cl|-do-pret|
|000043b0| 74 79 70 72 69 6e 74 5d | 20 34 20 28 23 24 20 2e |typrint]| 4 (#$ .|
|000043c0| 20 31 37 30 34 30 29 5d | 29 0a 28 64 65 66 61 6c | 17040)]|).(defal|
|000043d0| 69 61 73 20 27 63 6c 2d | 64 6f 2d 70 72 65 74 74 |ias 'cl-|do-prett|
|000043e0| 79 70 72 69 6e 74 20 23 | 5b 6e 69 6c 20 22 c0 c1 |yprint #|[nil "..|
|000043f0| 77 88 c2 c3 21 83 91 00 | c2 c4 21 ae 92 c2 c5 21 |w...!...|..!....!|
|00004400| ae 8d c2 c6 21 ae 88 c2 | c7 21 ae 83 c2 c8 21 c2 |....!...|.!....!.|
|00004410| c9 21 ae 83 c2 ca 21 c2 | cb 21 ae 83 c2 cc 21 c2 |.!....!.|.!....!.|
|00004420| cd 21 1e 0e 1e 0f 1e 10 | 89 1e 11 ac 8f 0e 0f ac |.!......|........|
|00004430| 8b d2 20 88 69 d3 59 ad | c4 d4 20 88 d5 1e 16 d7 |.. .i.Y.|.. .....|
|00004440| 75 88 d8 20 88 0e 11 ac | 88 c2 d9 21 ac 83 d8 20 |u.. ....|...!... |
|00004450| 88 0e 10 ab 88 c2 d9 21 | ac 83 d8 20 88 c2 d9 21 |.......!|... ...!|
|00004460| ac 98 0e 0e ab 85 0e 16 | 3f 16 16 0e 16 ab 83 da |........|?.......|
|00004470| 63 88 db 20 88 d8 20 88 | aa 63 d7 75 29 2c 87 d2 |c.. .. .|.c.u),..|
|00004480| 20 87 22 20 5b 22 20 22 | 20 6e 69 6c 20 6c 6f 6f | ." [" "| nil loo|
|00004490| 6b 69 6e 67 2d 61 74 20 | 22 28 22 20 22 28 28 22 |king-at |"(" "(("|
|000044a0| 20 22 28 70 72 6f 67 22 | 20 22 28 75 6e 77 69 6e | "(prog"| "(unwin|
|000044b0| 64 2d 70 72 6f 74 65 63 | 74 20 22 20 22 28 66 75 |d-protec|t " "(fu|
|000044c0| 6e 63 74 69 6f 6e 20 28 | 22 20 22 28 63 6c 2d 62 |nction (|" "(cl-b|
|000044d0| 6c 6f 63 6b 2d 77 72 61 | 70 70 65 72 20 22 20 22 |lock-wra|pper " "|
|000044e0| 28 64 65 66 75 6e 20 22 | 20 22 28 64 65 66 6d 61 |(defun "| "(defma|
|000044f0| 63 72 6f 20 22 20 22 28 | 6c 65 74 5c 5c 2a 3f 20 |cro " "(|let\\*? |
|00004500| 22 20 22 28 77 68 69 6c | 65 20 22 20 22 28 70 3f |" "(whil|e " "(p?|
|00004510| 73 65 74 5b 71 66 5d 20 | 22 20 73 65 74 20 6c 65 |set[qf] |" set le|
|00004520| 74 20 74 77 6f 20 73 6b | 69 70 20 66 6f 72 77 61 |t two sk|ip forwa|
|00004530| 72 64 2d 73 65 78 70 20 | 37 38 20 62 61 63 6b 77 |rd-sexp |78 backw|
|00004540| 61 72 64 2d 73 65 78 70 | 20 74 20 6e 6c 20 31 20 |ard-sexp| t nl 1 |
|00004550| 63 6c 2d 64 6f 2d 70 72 | 65 74 74 79 70 72 69 6e |cl-do-pr|ettyprin|
|00004560| 74 20 22 29 22 20 22 5c | 6e 22 20 6c 69 73 70 2d |t ")" "\|n" lisp-|
|00004570| 69 6e 64 65 6e 74 2d 6c | 69 6e 65 5d 20 36 5d 29 |indent-l|ine] 6])|
|00004580| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 21 |.(byte-c|ode "..!|
|00004590| ac 82 c2 11 c1 0b 42 13 | c0 c4 21 ac 82 c2 14 c4 |......B.|..!.....|
|000045a0| 0b 42 13 c2 87 22 20 5b | 62 6f 75 6e 64 70 20 63 |.B..." [|boundp c|
|000045b0| 6c 2d 6d 61 63 72 6f 65 | 78 70 61 6e 64 2d 63 6d |l-macroe|xpand-cm|
|000045c0| 61 63 73 20 6e 69 6c 20 | 63 75 72 72 65 6e 74 2d |acs nil |current-|
|000045d0| 6c 6f 61 64 2d 6c 69 73 | 74 20 63 6c 2d 63 6c 6f |load-lis|t cl-clo|
|000045e0| 73 75 72 65 2d 76 61 72 | 73 5d 20 32 29 0a 23 40 |sure-var|s] 2).#@|
|000045f0| 31 31 34 20 45 78 70 61 | 6e 64 20 61 6c 6c 20 6d |114 Expa|nd all m|
|00004600| 61 63 72 6f 20 63 61 6c | 6c 73 20 74 68 72 6f 75 |acro cal|ls throu|
|00004610| 67 68 20 61 20 4c 69 73 | 70 20 46 4f 52 4d 2e 0a |gh a Lis|p FORM..|
|00004620| 54 68 69 73 20 61 6c 73 | 6f 20 64 6f 65 73 20 73 |This als|o does s|
|00004630| 6f 6d 65 20 74 72 69 76 | 69 61 6c 20 6f 70 74 69 |ome triv|ial opti|
|00004640| 6d 69 7a 61 74 69 6f 6e | 73 20 74 6f 20 6d 61 6b |mization|s to mak|
|00004650| 65 20 74 68 65 20 66 6f | 72 6d 20 70 72 65 74 74 |e the fo|rm prett|
|00004660| 69 65 72 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ier...(d|efalias |
|00004670| 27 63 6c 2d 6d 61 63 72 | 6f 65 78 70 61 6e 64 2d |'cl-macr|oexpand-|
|00004680| 61 6c 6c 20 23 5b 28 66 | 6f 72 6d 20 26 6f 70 74 |all #[(f|orm &opt|
|00004690| 69 6f 6e 61 6c 20 65 6e | 76 29 20 22 08 c1 08 5c |ional en|v) "...\|
|000046a0| 6e 5c 22 89 10 61 ab 76 | 0b ab 89 08 c4 08 21 89 |n\"..a.v|......!.|
|000046b0| 10 61 ab 6a 08 3a ac 82 | 08 87 08 40 c5 73 83 a7 |.a.j.:..|...@.s..|
|000046c0| 00 08 41 40 ac 89 c6 c7 | 08 41 41 42 5c 6e 5c 22 |..A@....|.AAB\n\"|
|000046d0| 87 c8 89 08 41 40 1e 09 | 1e 5c 6e 1e 0b 0e 09 ab |....A@..|.\n.....|
|000046e0| c8 0e 09 40 3a ab 9d c6 | 0e 09 40 40 5c 6e 5c 22 |...@:...|..@@\n\"|
|000046f0| 89 1e 0c 39 ac 83 cd 16 | 0b 0e 0c ce 0e 09 40 41 |...9....|......@A|
|00004700| 5c 6e 5c 22 29 42 aa 98 | c6 0e 09 40 5c 6e 5c 22 |\n\")B..|...@\n\"|
|00004710| 89 1e 0c 39 ab 84 0e 0c | aa 87 cd 16 0b 0e 0c c8 |...9....|........|
|00004720| 44 29 0e 5c 6e 42 16 5c | 6e 0e 09 41 89 16 09 ac |D).\nB.\|n..A....|
|00004730| 38 0e 0b ab 8c 08 40 cf | 61 ab 83 cb aa 85 d0 aa |8.....@.|a.......|
|00004740| 82 08 40 0e 5c 6e 9f ce | 08 41 41 5c 6e 5c 22 2b |..@.\n..|.AA\n\"+|
|00004750| 42 42 87 08 40 d1 61 ab | 89 08 40 d2 d3 08 41 5c |BB..@.a.|..@...A\|
|00004760| 22 42 87 08 40 d4 61 ab | 96 08 40 08 41 40 c6 d5 |"B..@.a.|..@.A@..|
|00004770| 08 38 5c 6e 5c 22 d2 d6 | 08 41 41 41 5c 22 42 42 |.8\n\"..|.AAA\"BB|
|00004780| 42 87 08 40 d7 73 83 9f | 01 08 41 40 a2 d8 61 83 |B..@.s..|..A@..a.|
|00004790| 7b 01 ce 08 41 40 41 41 | 5c 6e 5c 22 1e 19 0e 1a |{...A@AA|\n\"....|
|000047a0| ab fc 08 40 db 61 ab f6 | dc 0e 19 0e 1a 5c 22 ab |...@.a..|.....\".|
|000047b0| ee d2 dd 0e 1a 5c 22 1e | 1e df 0e 1a 0e 1e 5c 22 |.....\".|......\"|
|000047c0| 1e 20 c8 1e 21 0e 19 40 | 3b ac 88 0e 19 40 a2 e2 |. ..!..@|;....@..|
|000047d0| 61 ab 90 e3 0e 19 89 41 | 16 19 40 44 0e 21 42 16 |a......A|..@D.!B.|
|000047e0| 21 aa 62 e4 e5 0e 1a 21 | 40 e6 cd 23 88 e7 e8 e9 |!.b....!|@..#....|
|000047f0| ea 45 eb 0e 20 0e 21 9f | 5c 22 e8 ec e8 ed db d8 |.E.. .!.|\"......|
|00004800| e7 0e 1e 08 41 40 41 40 | 5c 22 eb 0e 20 0e 19 5c |....A@A@|\".. ..\|
|00004810| 22 42 42 44 45 d2 ee 0e | 1a 5c 22 ef a4 42 42 42 |"BBDE...|.\"..BBB|
|00004820| 43 23 2b aa 8d 08 40 d8 | 08 41 40 41 40 0e 19 42 |C#+...@.|.A@A@..B|
|00004830| 42 44 29 87 08 41 40 5c | 6e b7 89 1e 30 41 41 40 |BD)..A@\|n...0AA@|
|00004840| 41 40 f1 61 ab 90 c6 0e | 30 41 41 41 40 41 41 40 |A@.a....|0AAA@AA@|
|00004850| 41 40 5c 6e 5c 22 aa 81 | 08 29 87 08 40 f2 73 ab |A@\n\"..|.)..@.s.|
|00004860| 8e 08 40 08 41 40 ce 08 | 41 41 5c 6e 5c 22 42 42 |..@.A@..|AA\n\"BB|
|00004870| 87 08 40 c7 61 ab 8c 08 | 41 41 ac 87 c6 08 41 40 |..@.a...|AA....A@|
|00004880| 5c 6e 5c 22 87 08 40 f3 | 61 ab ae ce 08 41 5c 6e |\n\"..@.|a....A\n|
|00004890| 5c 22 89 1e 34 89 1e 35 | ab 8f 0e 35 40 39 ab 89 |\"..4..5|...5@9..|
|000048a0| 0e 35 41 41 89 16 35 ac | 71 0e 35 ab 88 c6 f6 0e |.5AA..5.|q.5.....|
|000048b0| 34 42 21 aa 84 f3 0e 34 | 42 2a 87 08 40 ce 08 41 |4B!....4|B*..@..A|
|000048c0| 5c 6e 5c 22 42 87 22 20 | 5b 66 6f 72 6d 20 6d 61 |\n\"B." |[form ma|
|000048d0| 63 72 6f 65 78 70 61 6e | 64 20 65 6e 76 20 63 6c |croexpan|d env cl|
|000048e0| 2d 6d 61 63 72 6f 65 78 | 70 61 6e 64 2d 63 6d 61 |-macroex|pand-cma|
|000048f0| 63 73 20 63 6f 6d 70 69 | 6c 65 72 2d 6d 61 63 72 |cs compi|ler-macr|
|00004900| 6f 65 78 70 61 6e 64 20 | 28 6c 65 74 20 6c 65 74 |oexpand |(let let|
|00004910| 2a 29 20 63 6c 2d 6d 61 | 63 72 6f 65 78 70 61 6e |*) cl-ma|croexpan|
|00004920| 64 2d 61 6c 6c 20 70 72 | 6f 67 6e 20 6e 69 6c 20 |d-all pr|ogn nil |
|00004930| 6c 65 74 73 20 72 65 73 | 20 6c 65 74 66 20 65 78 |lets res| letf ex|
|00004940| 70 20 74 20 63 6c 2d 6d | 61 63 72 6f 65 78 70 61 |p t cl-m|acroexpa|
|00004950| 6e 64 2d 62 6f 64 79 20 | 6c 65 74 20 6c 65 74 66 |nd-body |let letf|
|00004960| 2a 20 63 6f 6e 64 20 6d | 61 70 63 61 72 20 23 5b |* cond m|apcar #[|
|00004970| 28 78 29 20 22 c0 09 5c | 6e 5c 22 87 22 20 5b 63 |(x) "..\|n\"." [c|
|00004980| 6c 2d 6d 61 63 72 6f 65 | 78 70 61 6e 64 2d 62 6f |l-macroe|xpand-bo|
|00004990| 64 79 20 78 20 65 6e 76 | 5d 20 33 5d 20 63 6f 6e |dy x env|] 3] con|
|000049a0| 64 69 74 69 6f 6e 2d 63 | 61 73 65 20 32 20 23 5b |dition-c|ase 2 #[|
|000049b0| 28 78 29 20 22 08 40 c1 | 08 41 5c 6e 5c 22 42 87 |(x) ".@.|.A\n\"B.|
|000049c0| 22 20 5b 78 20 63 6c 2d | 6d 61 63 72 6f 65 78 70 |" [x cl-|macroexp|
|000049d0| 61 6e 64 2d 62 6f 64 79 | 20 65 6e 76 5d 20 34 5d |and-body| env] 4]|
|000049e0| 20 27 66 75 6e 63 74 69 | 6f 6e 20 6c 61 6d 62 64 | 'functi|on lambd|
|000049f0| 61 20 62 6f 64 79 20 63 | 6c 2d 63 6c 6f 73 75 72 |a body c|l-closur|
|00004a00| 65 2d 76 61 72 73 20 66 | 75 6e 63 74 69 6f 6e 20 |e-vars f|unction |
|00004a10| 63 6c 2d 65 78 70 72 2d | 63 6f 6e 74 61 69 6e 73 |cl-expr-|contains|
|00004a20| 2d 61 6e 79 20 67 65 6e | 73 79 6d 20 6e 65 77 20 |-any gen|sym new |
|00004a30| 70 61 69 72 6c 69 73 20 | 73 75 62 20 64 65 63 6c |pairlis |sub decl|
|00004a40| 73 20 69 6e 74 65 72 61 | 63 74 69 76 65 20 71 75 |s intera|ctive qu|
|00004a50| 6f 74 65 20 70 75 74 20 | 6c 61 73 74 20 75 73 65 |ote put |last use|
|00004a60| 64 20 61 70 70 65 6e 64 | 20 6c 69 73 74 20 27 6c |d append| list 'l|
|00004a70| 61 6d 62 64 61 20 27 28 | 26 72 65 73 74 20 2d 2d |ambda '(|&rest --|
|00004a80| 63 6c 2d 72 65 73 74 2d | 2d 29 20 73 75 62 6c 69 |cl-rest-|-) subli|
|00004a90| 73 20 27 61 70 70 6c 79 | 20 27 71 75 6f 74 65 20 |s 'apply| 'quote |
|00004aa0| 23 5b 28 78 29 20 22 c0 | c1 5c 6e 45 87 22 20 5b |#[(x) ".|.\nE." [|
|00004ab0| 6c 69 73 74 20 27 71 75 | 6f 74 65 20 78 5d 20 33 |list 'qu|ote x] 3|
|00004ac0| 5d 20 28 27 2d 2d 63 6c | 2d 72 65 73 74 2d 2d 29 |] ('--cl|-rest--)|
|00004ad0| 20 66 6f 75 6e 64 20 63 | 6c 2d 6c 61 62 65 6c 73 | found c|l-labels|
|00004ae0| 2d 61 72 67 73 20 28 64 | 65 66 75 6e 20 64 65 66 |-args (d|efun def|
|00004af0| 6d 61 63 72 6f 29 20 73 | 65 74 71 20 61 72 67 73 |macro) s|etq args|
|00004b00| 20 70 20 73 65 74 66 5d | 20 31 34 20 28 23 24 20 | p setf]| 14 (#$ |
|00004b10| 2e 20 31 37 39 30 38 29 | 5d 29 0a 28 64 65 66 61 |. 17908)|]).(defa|
|00004b20| 6c 69 61 73 20 27 63 6c | 2d 6d 61 63 72 6f 65 78 |lias 'cl|-macroex|
|00004b30| 70 61 6e 64 2d 62 6f 64 | 79 20 23 5b 28 62 6f 64 |pand-bod|y #[(bod|
|00004b40| 79 20 26 6f 70 74 69 6f | 6e 61 6c 20 65 6e 76 29 |y &optio|nal env)|
|00004b50| 20 22 c0 c1 5c 6e 5c 22 | 87 22 20 5b 6d 61 70 63 | "..\n\"|." [mapc|
|00004b60| 61 72 20 23 5b 28 78 29 | 20 22 c0 09 5c 6e 5c 22 |ar #[(x)| "..\n\"|
|00004b70| 87 22 20 5b 63 6c 2d 6d | 61 63 72 6f 65 78 70 61 |." [cl-m|acroexpa|
|00004b80| 6e 64 2d 61 6c 6c 20 78 | 20 65 6e 76 5d 20 33 5d |nd-all x| env] 3]|
|00004b90| 20 62 6f 64 79 5d 20 33 | 5d 29 0a 28 64 65 66 61 | body] 3|]).(defa|
|00004ba0| 6c 69 61 73 20 27 63 6c | 2d 70 72 65 74 74 79 65 |lias 'cl|-prettye|
|00004bb0| 78 70 61 6e 64 20 23 5b | 28 66 6f 72 6d 20 26 6f |xpand #[|(form &o|
|00004bc0| 70 74 69 6f 6e 61 6c 20 | 66 75 6c 6c 29 20 22 c0 |ptional |full) ".|
|00004bd0| c1 21 88 5c 6e 89 c3 1c | 1d 1e 06 c7 0e 08 5c 6e |.!.\n...|......\n|
|00004be0| 3f ad 81 c9 5c 22 16 08 | c0 ca 21 88 cb 0e 08 21 |?...\"..|..!....!|
|00004bf0| c0 cc 21 88 2b 87 22 20 | 5b 6d 65 73 73 61 67 65 |..!.+." |[message|
|00004c00| 20 22 45 78 70 61 6e 64 | 69 6e 67 2e 2e 2e 22 20 | "Expand|ing..." |
|00004c10| 66 75 6c 6c 20 6e 69 6c | 20 62 79 74 65 2d 63 6f |full nil| byte-co|
|00004c20| 6d 70 69 6c 65 2d 6d 61 | 63 72 6f 2d 65 6e 76 69 |mpile-ma|cro-envi|
|00004c30| 72 6f 6e 6d 65 6e 74 20 | 63 6c 2d 63 6f 6d 70 69 |ronment |cl-compi|
|00004c40| 6c 69 6e 67 2d 66 69 6c | 65 20 63 6c 2d 6d 61 63 |ling-fil|e cl-mac|
|00004c50| 72 6f 65 78 70 61 6e 64 | 2d 63 6d 61 63 73 20 63 |roexpand|-cmacs c|
|00004c60| 6c 2d 6d 61 63 72 6f 65 | 78 70 61 6e 64 2d 61 6c |l-macroe|xpand-al|
|00004c70| 6c 20 66 6f 72 6d 20 28 | 28 62 6c 6f 63 6b 29 20 |l form (|(block) |
|00004c80| 28 65 76 61 6c 2d 77 68 | 65 6e 29 29 20 22 46 6f |(eval-wh|en)) "Fo|
|00004c90| 72 6d 61 74 74 69 6e 67 | 2e 2e 2e 22 20 63 6c 2d |rmatting|..." cl-|
|00004ca0| 70 72 65 74 74 79 70 72 | 69 6e 74 20 22 22 5d 20 |prettypr|int ""] |
|00004cb0| 33 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |3]).(byt|e-code "|
|00004cc0| c0 c1 21 88 c2 c3 21 87 | 22 20 5b 72 75 6e 2d 68 |..!...!.|" [run-h|
|00004cd0| 6f 6f 6b 73 20 63 6c 2d | 65 78 74 72 61 2d 6c 6f |ooks cl-|extra-lo|
|00004ce0| 61 64 2d 68 6f 6f 6b 20 | 70 72 6f 76 69 64 65 20 |ad-hook |provide |
|00004cf0| 63 6c 2d 65 78 74 72 61 | 5d 20 32 29 0a |cl-extra|] 2). |
+--------+-------------------------+-------------------------+--------+--------+
